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Extensive  testing  has  been  done  on  nonlinear  interface  optical  switch  C’ICS)  devices 
fabricated  from  laser  deposited  nonstoichiometric  tunsten  oxide  films.  A  Fresnel 
coefficient  formalism  for  evaluating  the  Indices  of  refraction  of  the  films  has  been 
developed.  Three  cycles  of  testing  involving  changing  the  tungsten -oxygen 
stoichiometry  have  not  produced  extremely  large  photorefractive  effects.  It  was 
decided,  after  using  a  mathematical  model  to  determine  the  required  incident  and 
reflection  angles,  to  make  the  next  set  of  SICS  devices  from  a  film  deposited  on  2nS 
prisms.  ZnS  more  closely  matches  the  low  light  intensity  index  of  the  films. 
Preliminary  studies  of  further  changes  to  produce  stronger  nonlinearity  have  been 
performed.  Raman  spectroscopy  showed  that  these  films  heated  in  oxygen  organize 
themselves  Into  octohedra,  which  are  thought  to  be  necessary  for  the  photorefractive 
effects  observed  in  titanates  and  niobates.  Heating  the  films  in  vacuum  produces 
blue  films  which  ESC.A  shows  contain  tungsten  in  the  +4  oxidation  state.  Such  electron 
rich  species  might  be  able  to  provide  highly  polarizable  charge  carriers.  In  addition 
to  use  as  optical  switches,  use  of  these  films  to  make  reconfigurable  Oammann  gratings 
has  been  studied.  These  gratings  would  allow  optical  addressing  of  large  size  S-SEED 
arravs . 
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Inttoducaon-Purposc 


Substantial  progress  was  made  in  testing  optical  switches,  in  particular  nonlinear  interface 
switches.  Of  equal  importance  was  the  goal  of  developing  and  optimizing  methodology  and 
apparatus  for  testing  optical  switches  in  general  We  performed  extensive  testing  of  nonlinear 
interface  switches  to  determine  whether  the  predictions  of  size  enhancements  of  nonlinear  optical 
properties  of  cluster  films  are  true. 

In  order  to  accomplish  testing  of  many  types  of  swimhes,  it  is  necessary  to  produce 
picosecond  Ia.«er  pulses  with  highly  coirelated  spatial  spectral  and  ten^poral  properties.  We  needed 
to  develop  the  capability  of  contacting  light  to  the  active  regions  of  switches  with  great 
precision(±10pm).  To  attain  sufficient  precision,  accuracy,  speed  and  reproducibility,  computer 
control  is  essential.  Extensive  work  was  done  to  configure  apparams  so  as  to  achieve  a  sufficiently 
flexible  mechanical  mounting  capability  and  a  sufficiently  flexible  computer  software 
"infiustrucnue"  to  facilitate  testing  of  an  arbitrary  choice  of  switch. 

In  this  effort,  we  chose  to  test  nonlinear  interface  switches  because  these  types  of  switches 
have  already  been  shown  to  have  excellent  characteristics  far  digital  optical  computing  ^plications 
if  they  can  be  fabricated  with  materials  having  better  nonlinear  optical  properties  than  earlier 
versions.  Proof  of  principle  research  on  eariier  versions  of  nonlinear  interface  switches,  along  with 
the  general  concepts  outlined  in  the  Final  Report  for  Task  P-9-6008,  serves  as  an  adequate 
introduction  to  the  theory  and  strategy  of  testing  the  tungsten  oxide  thin  films.  As  a  part  of  this 
effort,  we  developed  a  Fresnel  coefficient  formalism  for  evaluating  the  indices  of  refraction  of  the 
laser  deposited  films  which  comprise  the  switches.  This  enables  us  to  evaluate  the  photorefractive 
properties  of  the  films  as  well  as  their  static  optical  and  electrical  properties.  These  aspects  of  the 
effort,  which  bear  on  the  question  of  how  these  switches  may  be  improveu,  will  be  covered  below 
after  a  Procedure  section. 

Procedure 

The  materials  fabrication^  >2  operational  aspects  of  the  switches^  will  be  described  in 
detail  in  a  separate  section  below.  For  our  immediate  intention  of  detailing  the  progress  in  setting 
up  general  switch  evaluatioi  hardware  and  software,  we  note  that  switch  evaluation  was 
accomplished  utilizing  two  basic  approaches.  In  the  first,  the  net  reflectivity  of  a  switch  was 
measured  at  a  single  laser  power  over  a  range  of  angles  of  incidence.  This  allowed  determination  of 
the  angles  of  incidence  over  which  a  switch  could  potentially  be  evaluated  in  a  NAND,  OR  or  AND 
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mode.  Given  the  choice  of  angle  of  incidence,  then  the  evaluation  took  the  form  of  determining  the 
reflectivity  as  a  function  of  laser  power.  If  the  index  of  redaction  of  any  part  of  the  switch  is  a 
function  of  laser  power,  i.e.  is  photwefiactive,  then  the  reflectivity  will  be  a  function  of  laser 
power.  Detecting  this  effect  is  the  essence  of  switch  evaluation  for  this  type  of  switch  using  pulse 
trains.  It  should  be  emphasized  that  we  employed  this  approach  only  as  a  prelude  to  use  of  single 
pulses  in  a  pump-probe  configuration. 

A  very  brief  description  of  the  switching  mechanism  is  in  order  at  this  point.  The  basic  idea 
is  that  whenever  light  encounters  a  boundary  while  traversing  a  region  filled  with  two  media 
having  differei  t  indices  of  refiaction,  part  of  the  light  is  reflected  and  the  other  part  is  transmitted. 
The  proportion  of  the  incident  light  which  is  reflected  from  the  interface  is  proportional  to  the 
difference  between  the  two  indices.This  is  in  perfect  analogy  with  what  happens  when  an 
e'ectronic  signal  encounters  an  impedance  mismatch  while  traveling  between  discrete  electronic 
devices.  Figures  la  and  lb  suggest  this  situation.  If  the  film  material  is  sufficiently  photorefractive, 
then  it's  index  of  refraction  is  a  strong  function  of  the  optical  power  incident  on  it.  The  proportion 
of  the  incident  light  reflected  is  thus  a  function  of  the  amount  of  light  which  is  incident  upon  it.  As 
will  be  discussed  in  greater  detail  later,  this  is  the  basis  of  all  switching  action  for  this  kind  of 
device. 


For  a  planar  substrate,  one  can  measure  switching  behavior  by  monitoring  either  the  optical 
power  transmitted  across  the  boundary  or  the  amount  of  light  which  is  reflected.  Any  deviation  of 
either  of  these  optical  powers  from  linearity,  when  plotted  as  a  function  of  the  incident  power,  is  a 
function  of  the  degree  to  which  either  the  film  or  substrate's  index  of  refraction  is  a  function  of  the 
incident  power.  The  use  of  the  prism  sub  ■•rate  was  suggested  by  the  proof  of  principle  research 
and  can  be  simply  explained  as  follows.  Whenever  light  encounters  an  interface  between  one 
medium  which  has  a  greater  index  of  refraction  and  another  medium  which  has  a  lesser  index  of 
refraction,  there  wili  be  a  critical  angle  (see  Hgure  Ib  angle  C)  for  which  all  the  light  traversing  the 
interface  will  not  be  able  to  reenter  the  interface.  The  dependence  of  the  reflectivity  of  the  interface 
near  the  critical  angle  is  a  very  steep  function  of  angle  and  so  reduces  the  amount  of  photorefractive 
behavior  needed  to  observe  switching.  In  addition,  the  incident  and  reflected  light,  with  respect  to 
the  prism-film  interface,  are  separated  from  each  other  automatically.  We  will  return  to  a  discussion 
of  switching  and  device  fabrication  in  a  later  section. 

A  software  program  called  ASYST,  which  we  describe  software  so  as  to  serve  as  a  primer 
for  future  users,  has  been  used  to  control  and  record  data  from  various  laboratory  equipment  with  a 
single  personal  computer. 


•  • 
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asyst  softvare  for  iaboratory  devices 

tfords  in  bold  and  italic  print  are  cotmnanda  or  variables  that  need 
special  attention,  while  words  in  bold,  italic,  and  underlined  are  DOS  file 
names.  A  large  portion  of  this  publication  discusses  topics  covered  in  the 
nuTyigi  c  of  asyst.  a  software  package  currently  being  used  at  the  Air  Force 
Photonics  Center.  To  better  understand  the  software  program,  you  may  want 
to  refer  to  the  manual'  while  reading  this  publication.  Braces,  [],  are 
used  to  cite  the  manual  and  page  number.  The  letter  I  represents  the 
Module  I  Tutorial  (System.  Granhics.  Statistics)  and  the  letter  ^ 
represents  the  additional  manual  ASYST  3.10:  Your  Guide  to  ASYST 's  New 
Feature  Erhaneements . 


In  order  for  a  lab  device  to  talk  to  a  personal  computer  the  device 
must  have  an  interface,  u.v<ually  -tither  a  RS232  or  IEEE-488  Interconnect. 
Because  RS232  can  be  rat^  ir  difficult  to  use  we  have  used  the  IEEE-488 
interconnect  whenever  pov  ible.  The  IEEE-488  port  is  connected  to  a 
personal  computer  through  -m  interlink  called  GPIB  (General  Purpose 
Interface  Bus) .  BASIC  and  C  programming  languages  can  control  the  GPIB 
system,  but  the  programs  would  be  long  and  tedious.  The  ASYST  programming 
language  offers  GPIB  and  RS232  control  with  graphics  display,  Lotus  1-2-3 
compatibility,  and  data  plotting.  ASYST  has  more  commands  than  higher  level 
languages  such  as  BASIC  with  the  abllf ty  to  create  user  defined  command 
words  to  execute  many  ASYST  commands-  with  one  user  defined  word.  ASYST  can 
be  easie'  to  ut-e,  bit  like  a.l  programming  languages  it  takes  time  to 
learn. 


GPIB  DHUicr-  miN  nm 
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Figure  2.  Main  menu  for  device  auton’^cion 
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DATA  ACQUISITION  FOR  OPTICAL  SWITCHES: 


OPTICAL  SWITCH  TEST  SETUP 

Using  a  mode -locked  argon  ion  laser,  Che  beam  Is  first  polarized  and 
sent  through  a  Laser  Power  Controller  (LFC).  A  beam-splitter  then  splits 
the  laser  beam  into  two  separate  beams  of  unequal  intensity.  Mirrors 
redirect  the  two  beams  Co  become  nearly  parallel  and  close  together  before 
entering  a  li^t  shielded  box.  Upon  enter  Che  box  the  beams  reflect  and 
refract  from  the  surface  of  the  film  and  the  substrate.  The  reflected  beams 
are  measured  by  a  photodetector  connected  Co  a  power  meter.  See  Appendix  - 
A  for  a  diagram  of  the  laboratory. 

ENVIRONMENTAL  CONSIDERATIONS 

Stray  light  from  the  laser  beam  reflected  off  various  objects  in  the 
laboratory  caused  unwanted  intensities  to  be  recorded.  Emissions  from 
computer  monitors  and  light  from  the  outside  hallway  also  affected  our 
readings.  To  keep  this  unwanted  light  from  reaching  the  detector  a  l:'.ght 
shielding  box  was  constructed.  A  longer  focal  length  lens  replaced  the 
previous  lens  to  allow  the  lens  and  mirrors  to  be  outside  of  the  box.  A 
black  cylinder,  placed  where  Che  two  parallel  beams  enter  the  box,  help 
block  stray  light  from  entering  the  box.  As  we  increased  the  beam 
intensity  there  were  only  three  light  sources  left  to  eliminate.  One  source 
was  a  reflection  from  one  of  the  two  beams  at  the  focusing  lens.  This 
reflection  angled  above  the  substrate  and  reflected  off  the  micrometers 
holding  the  substrate.  Black  tape  was  then  used  to  cover  the  micrometers 
and  minimize  this  reflection.  The  ocher  sources  were  made  when  the  beams 
contacted  the  surface  of  Che  substrate  and  the  beams  were  split  into 
reflected  and  refracted  beams.  The  refracted  beams  continued  through  Che 
substrate  until  contacting  the  ocher  side  of  the  substrate.  At  the  other 
side  of  the  substrate  the  two  refracted  beams  were  split  into  reflected  and 
refracted  beams.  The  reflected  beams  travelled  back  through  the  substrate 
and  toward  the  detector.  These  second  reflections  were  at  a  small  distance 
from  the  first  reflections  and  were  blocked  by  a  black  spatial  filter  which 
had  one  hole  to  allow  the  first  reflections  through  to  the  detector  to  '  j 
measured.  The  third  source  was  Che  light  from  the  beams  refracted  through 
the  substrate.  This  source  reflected  off  the  black  wall  of  the  box.  This 
source  was  the  most  incense  of  the  three  sources  of  unwanted  photons.  To 
minimize  its  reflectance,  a  block  of  black  razor  blades  was  put  at  the  site 
of  reflection.  Sporadic  movement  and  vibrations  of  any  of  the  devices, 
mirrors,  and  the  argon  laser  are  countered  by  a  floating  optics  table. 
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TEST  INSTRUMENTATION 


Cambridge  Research  Institute  -  Laser  Power  Controller 

*  laser  power  controller  offers  the  ability  to  change  the  output 
power  of  the  laser  beam  without  changing  any  of  the  parameters  of  the  laser 
itself.  This  device  is  also  controllable  over  a  GPIB  bus  to  allow  the 
computer  to  change  the  output  level  and  take  test  measurements.  Although 
the  laser  power  controller  has  a  dip  switch  to  change  its  GPIB  address,  the 
dip  switch  is  inside  the  controller.  I  have  used  its  factory  set  address  of 
8  to  avoid  disassembly  of  the  controller.  The  other  devices  I  have  used 
either  have  factory  settings  other  than  8,  or  are  easily  changed. 

Hewlett  Packard  -  HP8116A  Signal  Generator: 

The  Signal  generator  is  an  easy  device  to  communicate  with  and  is 
helpful  in  programming  for  an  oscilloscope,  but  has  not  yet  played  a  part 
in  our  experiments.  However,  if  we  ever  need  to  use  it  we'll  have  a  program 
ready  to  help  us  in  the  lab.  Like  most  GPIB  ready  devices,  the  GPIB  address 
is  defined  by  a  dip  switch  on  the  back  panel  of  the  device. 

Ithaco  -  385EO  Lock-in  Amplifier  System: 

Although  our  experiment  hasn't  yet  called  for  a  lock-in  amplifier, 
another  experiment  we  are  currently  conducting  does  need  the  use  of  a 
lock-in  amplifier.  The  Ithaco  does  some  calculating  of  data  for  you,  but  it 
is  only  accessible  through  the  GPIB  bus.  The  front  panel  of  the  lock-in 
amplifier  limits  it's  use,  but  a  computer  can  alter  more  parameters  and 
offer  better  control  over  the  device.  The  GPIB  address  is  located  on  the 
back  panel  of  the  385EO  which  is  an  option  device  for  the  lock-in 
amplifier. 

Klinger  -  MC4/MDA  Stepping  Motors: 

The  Klinger  controls  various  motorized  stages  for  different 
laboratory  needs.  Two  rotational  stages  control  the  rotational  angle  of  the 
substrate  and  the  detector.  Two  linear  stages  in  the  X  and  Y  directions  are 
used  to  align  the  film  directly  over  the  center  of  rotation  of  the  two 
rotational  stages.  A  Klinger  stepping  motor  has  also  been  used  to  control 
the  height  of  all  of  stages  in  the  Z  direction.  The  GPIB  address  for  the 
motors  is  on  the  back  of  the  Klinger  motor  controller.  It  is  an  easily 
changed  dip  switch  setting. 

Newport  -  835  Optical  Power  Meter; 

When  the'  Spiricon  camera  system  became  temporarily  inoperable,  a 
power  meter  replaced  the  Spiricon  liA  to  measure  the  total  power.  An 
attenuator  was  attached  to  the  power  meter  to  measure  power  above  2 
milliwatts  when  the  laser's  power  was  increased  for  higher  intensity 
measurements  reflected  from  the  substratel  The  GPIB  address  is  set  once 
again  by  a  dip  switch  on  the  back  panel.  However,  this  dip  switch  includes 
an  option  for  talk/listen  and  talk  only.  The  talk  only  option  can  be  found 
at  dip  switch  number  6.  This  allows  for  the  device  to  continuously  send 
data  into  the  GPIB  bus. 


0 
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Spiricon  -  LBA-100  Laser  Beam  Analyzer: 

The  laser  beam  analyzer  uses  a  camera  to  show  the  intensity  of  the 
beam  across  a  square  area.  The  analyzer  measures  both  total  and  peak  power 
in  Watts,  Joules,  or  relative  power.  A  screen  plot  is  made  from  the  data 
collected  in  the  camera  with  various  colors  representing  different 
intensity  ranges.  The  GPIB  address  for  the  laser  beam  analyzer  is  driven 
through  it's  own  internal  software.  The  address  can  easily  be  changed  or 
viewed  by  using  the  Spiricon' s  menu  system. 


ASTST  FROGSAMMING 

The  control  program  is  written  in  a  commercial  software  language, 

ASYST,  that  uses  special  memory  areas  called  stacks  to  perform  its 
operations.  The  number  stack  manipulates  numeric  scalar  and  array 

variables,  while  the  symbol  stack  is  used  for  character  string,  true  or  • 

false,  and  menu  operations.  The  stacks  use  the  variables  on  a  last  in, 
first  out  basis.  ASYST  also  operates  in  polish  notation.  That  is  to  say 
that  the  variables  are  placed  before  the  operand  instead  of  between  them. 

Normally  we  would  use  2*4+3,  in  polish  notation  it  would  be  2  4  *  3  +. 

ASYST  Configuration  # 

Although  it  can  be  first  run  with  ASTST. CPU,  other  .com  files  can 
later  be  made  to  run  ASYST.  To  change  its  configurations  press  F2  at  the  OK 
prompt  in  ASYST  after  executing  the  .com  file.  This  will  bring  up  the 
Configuration  Menu  [1:1-16].  The  programming  that  has  been  done  in  ASYST 
has  centered  around  communicating  with  laboratory  devices  tising  GPIB,  let 

us  now  take  a  moment  to  discuss  the  GPIB  board.  The  majority  of  GPIB  boards  •  # 

being  used  at  this  facility  are  manufactured  by  National  Instniments.  The 
GPIB  boards  we  currently  have  require  configuration  before  they  can  be 
used. 


GPIB  Board  Configuration  with  IBCONF 

In  order  to  use  GPIB  with  ASYST  or  any  other  program,  the  GPIB  # 

board  must  first  be  configured  before  entering  ASYST.  For  National 
Instnoments  a  program  called  IBCONF  is  used  to  set  parameters  for  the  board 
and  all  the  devices  connected  to  it.  For  ASYST  you  will  need  to  know  the 
address  of  each  of  the  devices  on  the  board  and  each  individual  End  Of 
String  (EOS)  character.  If  a  device  is  not  configured  in  IBCONF  you  may 
configure  the  board  by  reading  the  device  manual  for  GPIB  communication.  • 

Some  devices  have  preset  GPIB  addresses  that  can  not  be  changed,  while 
others  have  dip  switches  to  change  their  factory  presets.  Once  you  know  the 
address,  use  IBCONF  to  set  EOS  characters  (in  Hex),  timeout  setting, 
interrupt  sett  .ng,  and  the  base  I/O  address.  The  GPIB  board's  manual  should 
give  the  factory  preset  interrupts  and  I/O  addresses  (Figure  3).  If  the 
interrupt  or  I/O  addresses  are  not  available  due  to  other  programs  already  # 

using  them,  then  you  will  need  to  locate  open  interrupts  or  I/O  addresses 
using  DOS  or  a  personal  computer  utility  programs  such  as  Winsleuth  or 
Quarterdeck  Manifest.  Ensure  that  all  of  the  devices  you  intend  to  use  are 
currently  connected  to  the  board  with  GPIB  device  cables.  In  IBCONF  make 
sure  that  lines  are  drawn  to  connect  GPIBO  (Figure  4) .  Software  connection 
is  made  with  function  key  F4.  Save  your  configuration  and  reboot  the  • 

computer  to  put  these  changes  into  effect.  Remember  your  device  addresses 
and  EOS  characters  for  configuration  in  ASYST. 


»  ».  '  * 
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Instruwewts  | 


Bowni:  GPIM 


!rT  in.<r»» 


Sacondarti  GPIB  Address  .  t 
Ttweou^  se't'tlTis  !•••••••• 

EOS  byte  . . . 

Terninate  Bead  on  EOS  • • • 
Set  EOI  with  EOS  on  Write 


Board  Characteristics 


IBH  PC-AT 


SELECT  Cuse  risht/’left  arrow  Keys): 


s  to  aa 


nonB 


TSs 

im 

yes 

yes 


Type  of  f»inpare  on  EOS  . . 7— bit 

Set  EOI  u/'last  byte  of  Write  ..  yes 

GPIB-PC  ftodel  . PC2A 

Board  is  Systen  Controller  ••••  yes 
Local  LocSnut  on  all  devices  ••  yes 
Disable  Auto  Serial  Pollingr  •••  yes 
Disable  Device  Unaddressing  • • •  no 


High  speed  titling  . no 

Interrupt  Junper  setting  .  7 

Base  lo^  Address  . BZEIH 

DdA  channel  .  1 


Internal  Clock  Freq  (in  HHs)  4.  6 


Fl:  Help  F2:  Explain  Field 


F6:  Beset  Ualue  F9:  Beturn  to  Hap 


Figure  3.  National  Instruments  IBCONF.COM  Controller  Settings 


national 


I nstrunents 


Deuic:e  Hap  for  Board  GPIB0 


I 


IBH  PC-AT 


•  Use  cursor  control  keys  to  select  a  device  or  board. 

•  Use  function  keys  below  to  select  desired  action. 

•  Use  PgUp^PgOn  to  display  naps  for  other  boards. 


- ^31  LECBOV 

1  DEUS 

■  DEUS 

- ^2  nc4B 

■  DEU2 

■  DEU6 

■  DEUia 

- ^2  LBA_108 

1  DEU3 

■  DEU7 

■  DEUll 

- ^2  ITH3B5 

- nwpnsas 

- ^2  LPC 

- ^2  nc4A 

- H  GEH 

< 


~  II  ~ 

Fi:  Help  F4:  Benane  F5:  (Dislconnect  F8:  Edit  F9:  Exit 


Figure  4.  National  Instruments  IBCONF.COM,  GPIB 
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ASYST  Hardware  Specifications: 

At  the  ASYST  configuration  menu  first  select  hardware 
configuration  (Figure  5).  ASYST  is  originally  s^. :  up  for  a  slow  computer 
with  monochrome  monitor  and  IBM  printer.  Change  i  ae  selections  in  the 
Hardware  Configuration  first  so  that  you  may  make  use  of  the  selections 
when  continuing  the  configuration  process  [1:1-18].  For  instance,  you 
cannot  edit  the  color  of  the  ASYST  prompts  unless  your  software  is 
configured  for  a  color  monitor. 


Conf  i 


Ciirrf-Mit 


CPU  Type 
CPU  Speed 
iilBBfWfl 
Pr inter 


CPU  Type  is  80286  or  88836 
CPU  Speed  is  16.80  MHz 

IBM  Color  Graphics  Card*  Black/Uhite  Monitor 
IBM  Graphics  Printer 

Cfor  208  vertical  pixel  display  itode) 


<Enter> : 
<UpArrou>: 
<DounArrou> : 
<Lef tArraw> : 
<Ri9htA3ra>ow>: 
<Hom>  : 

<End>: 

<Esc>: 


Active  Keys 

Select  nenu  itee  or  acxxipt  paraneter  for  pronpt 

Hove  to  previous  nenu  iten  or  pronpt 

Move  to  next  nenu  iten  or  pronpt 

Move  to  nenu  iten  or  pronpt  to  the  left 

Move  to  nenu  iten  or  pronpt  to  the  right 

Move  to  the  first  nenu  iten  or  pronpt 

Hove  to  the  last 'nenu  iten  or  pronpt 

Exit  current  nenu  or  pronpt  list 


Figure  5.  ASYST  Hardware  Configuration  Menu 
Selecting  ASYST  Overlays: 

ASYST  has  many  sets  of  command  words  for  different  functions. 
Select  only  the  overlays  of  command  words  for  the  functions  that  you  will 
need  (Figure  6).  These  overlays  take  up  plenty  of  memory,  so  don't  load 
overlays  you  will  not  use!  If  you  are  going  to  use  the  GPIB  system  you  must 
load  GPIB  master  and  the  overlay  for  your  particular  GPIB  board  [1:1-16], 
Each  of  the  driver  overlays  contains  commands  for  more  than  one  GPIB  board. 
Choose  only  the  driver  overlay  that  contains  your  computer's  GPIB  board. 

For  a  list  of  supported  GPIB  boards  and  the  driver  overlays  refer  to  Module 
4  GPIB/IEEE-488  Appendix  D  of  the  ASYST  manuals.  The  Help  Overlay  doesn't 
offer  much  help  for  the  memory  it  takes  up  and  I  suggest  not  loading  this 
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GPIB  Device  Configuration 

Each  GPIB  device  to  be  utilized  by  ASYST  must  be  assigned.  The 
program  needs  to  know  the  EOS  characters,  I/O  addresses,  their  user  defined 
names,  and  whether  the  EOS  characters  are  on  or  off.  Next  you'll  need  to 
initialize  the  GPIB  bus.  Initializing  the  bus  takes  three  ASYST  commands 
which  I  have  shortened  to  one  called  init  (see  Appendix  C  •  Short 
Commands).  Since  the  GPIB  board  I  was  recently  working  with  allows  only  16 
devices  I  created  a  text  file  called  GPIB3.2XX  to  assign  all  of  the  devices 
with  their  EOS  character,  address,  and  name  (Appendix  D  -  GPIB  Device 
Configurations) .  This  text  file  is  automatically  loaded  by  my  main  text 
file  program  and  allows  the  GPIB  Device  Configuration  file  to  be  edited 
from  an  option  given  in  the  main  menu. 

Making  Menus 

In  the  latest  version  of  ASYST,  menu  command  words  were  added  to 
create  user  defined  menus  for  other  users  unfamiliar  with  the  program 
[N:3-l].  Menus  are  subprograms  of  special  command  words.  These  exclusive 
menu  commands  are  used  only  inside  a  menu  definition.  The  menu  is  first 

HP8116A.MENU 

MENU. STATUS  HP8116 A. STATUS 
MENU. BLOW. UP 
1  1  2 A.  79  MENU. SHAPE 
C5B  C5F  MENU. COLOR 
C5P  MENU. PROMPT. COLOR 

1  1  "  CHANGE  PARAMETERS"  MENU.ITEM(  SGCP.MENU  ) 

3  1  "  EXECUTE  DESIGNED  PROGRAMS"  MENU.ITEM{  SGDP.MENU  ) 

5  1  "  ENABLE  /  DISABLE  FRONT  PANEL"  MENU. ITEM (  LOCK. OUT. SWITCH  } 

MENU. END 


Figure  8.  Example  of  a  Menu  Definition 

declared  using  the  command  menu  followed  by  the  name  of  the  menu  to  be 
defined.  The  menu  definition  begins  with  the  name  of  the  menu.  The  menu 
definition  terminates  when  the  menu  reaches  the  menu  command  Menu. End 
(Figure  8).  A  menu  is  basically  a  text  window  with  executable  items  for  the 
user  to  choose  from.  The  size  and  location  of  the  menu  is  determined  by  the 
command  Menu. Shape  .  Any  predefined  colon  definitions,  overlay  commands, 
basic  ASYST  commands  or  other  menus  are  executable  in  the  menu  by  using  the 
command  word  Menu. Item.  This  command  also  defines  the  location  and  text  to 
be  displayed  as  a  menu  option.  Excluding  the  menu  title  and  menu  selections 
all  ocher  text  can  be  displayed  by  a  user  defined  colon  definition  executed 
by  Che  menu  command  called  Menu. Status.  For  GPIB  device  menus  this  command 
can  be  used  to  display  current  data  from  the  device  such  as  signal 
generator  parameters  in  the  program  HPSllSA.xxx  (Figure  9). 


•  •  • 
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;  HP8116 A. STATUS  12  FOREGROUND 

DISPLAY.DATA  13  FOREGROUND 

26  8  GOTO.XY  CURRENT  PARAMETER  SETTINGS" 
0  8  GOTO.XY  ********************" 


58  8 

GOTO.XY 

1 

10 

GOTO.XY 

Amplitude: " 

40 

10 

GOTO.XY 

n 

Output  Disabled:" 

1 

11 

GOTO.XY 

Offset: " 

40 

11 

GOTO.XY 

n 

Autovemier: " 

1 

12 

GOTO.XY  ." 

Operating  Mode:" 

40 

12 

GOTO.XY 

n 

High  Level" 

1 

13 

GOTO.XY  .” 

Control  Mode:" 

40 

13 

GOTO.XY 

It 

Low  Level:" 

1 

24 

GOTO.XY 

Trigger  Slope:" 

40 

24 

GOTO.XY 

n 

Burst  Number:" 

1 

15 

GOTO.XY 

Havers ine (-90):" 

40 

25 

GOTO.XY 

ft 

Repetition  Rate:" 

1 

16 

GOTO.XY 

Waveform: " 

40 

16 

GOTO.XY 

It 

Sweep  Start  Freq:" 

1 

17 

GOTO.XY  ." 

Frequency: " 

40 

17 

GOTO.XY 

ft 

Sweep  Stop  Freq:" 

1 

18 

GOTO.XY  ." 

Duty  Cycle:" 

40 

18 

GOTO.XY 

ft 

Sweep  Marker  Freq:" 

1 

19 

GOTO.XY  ." 

Width:" 

40 

19 

GOTO.XY 

It 

Sweep  Time:" 

1 

20 

GOTO.XY  ." 

Limi  t  ( on/off ) : " 

40 

20 

GOTO.XY 

II 

Complement  (on/off) : " 

11  FOREGROUND  ; 

Figure  9.  Menu. Status  example  from  HP8116A.XXX 

As  a  special  note  the  menu  commands  look  decent  in  normal  display,  but 
appear  slightly  worse  in  graphics  display  mode. 

Arrays  and  Tokens 

ASYST  arrays  are  very  similar  to  arrays  in  any  other  programming 
languages  [1:5-1] .  They  can  have  multiple  dimensions  and  can  be  accessed 
one  element  at  a  time.  These  arrays  can  also  be  accessed  one  dimension  at  a 
time  or  you  can  change  the  entire  array  all  at  once  by  using  the  array  name 
the  same  as  you  would  a  scalar  variable  name  [1:18-1] .  To  access  one 
dimension  ^t  a  time  you  can  u  *e  the  /  character  as  a  wildcard  variable  with 
the  ASYST  command  XSECT  directly  in  front  of  the  accessing  braces 
(  ex.  ZSECT  f  2  .  I  .  5  1  ).  This  creates  a  cross  sectional  view  of  the 
array.  If  a  portion  of  a  dimension  is  what  you  desire  use  the  command  Sub 
in  front  of  the  braces.  However,  you  cannot  use  the  /  character  in  a  Sub 
command.  ASYST  also  offers  string  arrays  that  are  limited  to  two  dimensions 
with  one  of  the  dimensions  being  the  maximum  character  length  of  a  string. 
Because  ASYST  does  not  automatically  make  use  of  expanded  memory,  tokens 
become  an  important  tool  for  users  to  make  use  of  a  286,  386,  or  486  with 
expanded  memory.  Tokens  are  defined  by  taking  the  data  and  size  of  an 
already  existing  array.  In  the  ASYST  memory  configuration,  memory  is 
allocated  for  unnamed  arrays  as  well  as  a  token  heap.  If  you  are  using 
expanded  memory  the  token  heap  size  will  not  make  a  difference  in  your 
programming,  but  the  size  of  the  unnamed  array  heap  can  limit  the  maximum 
size  of  your  arrays  and  your  tokens.  It  would  be  more  beneficial  for  users 
with  expanded  memory  to  increase  the  unnamed  array  memory  allocation  by 
decreasing  the  named  array  memory.  This  will  allow  for  larger  sized  tokens 
in  expanded  memory.  Keep  in  mind  that  when  you  enter  a  saved  program  from 
DOS  all  arrays  are  blank  and  your  tokens  have  no  size,  data  or  place  in 
expanded  memory.  You  will  then  have  reload  tokens  into  expanded  memory. 


•  •  • 


•  •  •  .  '  • 
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define  their  size  and  load  them  with  any  necessary  data. 


Data  files 

While  ASYST  has  its  own  data  file  system,  you  can  save  data  in  a 
LOTUS  1-2-3  spreadsheet  format  (Figure  10),  ASCII  text  file  or  into  a  BASIC 
data  file.  First  let  us  discuss  the  ASYST  data  filing  technique  [1:17-1] . 
ASYST  uses  what  it  calls  a  file  template  to  map  out  the  structure  of  each 
data  file.  Data  files  contain  only  numeric  arrays  and  comment  statements. 

If  you  wish  to  store  strings,  you  would  need  to  use  the  comments.  Keep  in 
mind  that  comment  statements  have  a  maximum  length  of  64  characters.  If  you 
need  to  store  strings  of  greater  length,  I  suggest  you  convert  your  string 
arrays  into  integer  arrays  to  be  properly  stored.  This  also  means  that  upon 
restoring  data  you  will  have  to  convert  the  data  from  an  integer  array  back 
into  a  string  array.  Once  a  file  template  is  made  it  can  not  be  changed 
with  the  exception  of  appending  an  array  to  the  end  of  the  file.  If  you 
desire  to  change  the  size  of  an  array  in  the  data  file  you  must  recreate 
the  entire  data  file.  The  LOTUS  1-2-3  interface  doesn't  need  a  file 
template  [1:17-23],  but  you  must  carefully  decide  which  direction  to  write 
an  array  into  a  spreadsheet.  Keep  in  mind  there  is  only  one  array  written 
to  a  spreadsheet  at  one  time.  If  you  want  to  write  more  than  one  string  or 
numeric  array,  you  must  reset  a  pointer  using  123WRITE.DOWN  and 
12 3WRITE. ACROSS.  Data  can  be  read  from  ASCII  and  DIF  format  files  into 
ASYST  strings,  but  ASYST  does  not  let  you  write  to  BASIC  or  DIF  files 
interactively  [1:17-19].  ASYST  does  offer  a  way  to  direct  output  to  files 
to  create  ASCII  text  files.  You  can  then  edit  these  files  by  the  ASYST  text 
editor  or  any  word  processor. 


;  S123 

TOTAL  DAIA123  XSECT[  !,!]:’- 
DECREES  DATA123  XSECT[  !  ,  2  ]  ;= 

DATA123  SUB[  1  .  Q  ;  1  .  2  ]  EQUIV>  DATA. 123 


SAVE. RESTORE. MENU  MENU. EXECUTE  \ 
FILE. PATH  "  \"  "CAT  \ 
NAME. FILE  "CAT  FILE. NAME  \ 
FILE. NAME  DEFER>  123FILE .CREATE  \ 
FILE. NAME  DEFER>  123FILE.OPEN  \ 
1  1  123WRITE. ACROSS  \ 
1  1  Q  2  123READ. RANGE  \ 
DATA. 123  ARRAY>123FILE  \ 


123FILE. CLOSE  MENU. ESCAPE  MENU. ESCAPE  ; 


Figure  10.  Example  of  LOTUS  1-2-3  interface  commands 


Loops  0 

As  with  any  respectable  programing  language,  ASYST  offers  loops 
to  better  organize  tediotis  and  repetitive  portions  of  a  program.  ASYST  DO 
loops  have  scalar  variable  counters  that  are  useful  in  keeping  track  of 
where  you  are  Inside  of  a  loop  or  nested  loop  [1:16-2],  I  mention  these 
cotmters  because  I  have  foimd  them  extremely  useful  in  any  programming 

language.  The  array  manipulation  and  other  various  mathematical  processes  ^ 

performed  inside  the  loop  require  at  times  a  counter.  Here  ASYST  offers  a 

counter  without  having  to  program  the  old  mthod  of  '  N  -  N  -i-  1  ' .  These 

counters,  beginning  with  '1*  for  the  innermost  loop,  should  not  be 

redefined  in  a  user  defined  program.  In  other  words  it  is  not  advisable  to 

create  a  variable  or  colon  definition  with  a  name  of  I,  J,  or  K.  If  you 

view  1^  programs  you  a  ty  notice  that  I  use  loops  frequently  to  save  room  in  0 

the  program  file  (Figure  11),  neatly  organize  command  lines,  and  best  of 

all  increase  the  speed  of  loading  the  program.  ASYST  offers  indefinite 

loops  for  those  of  you  who  do  not  know  the  exact  count  on  which  to  end 

[1:16-9],  These  loops,  BEGIN-UNTIL  and  BEGIN- WHILE- REPEAT,  will  continue 

until  there  is  a  false  condition  present  in  front  of  the  UNTIL  or  WHILE 

commands .  Although  I  have  not  yet  had  the  opportunity  to  use  this  type  of  ^ 

loop,  I  have  mentioned  it  for  future  reference  if  you  are  in  need  of 
looping  until  a  certain  condition  is  met. 

121  1  DO  \  X  DIRECTIOS 

121  1  DO  \  Y  DIRECTION 

DATAE  [  J  ,  I  ]  COLOR 
I  2  *  396  +  H  H  1  +  Y 
J  2  *  L  :• 

3^8  L  -  N  N  1  -  Z 
.MNP!  HZ  P! 

Y  N  P!  Y  Z  P! 

LOOP 
LOOP 

Figure  11.  Example  of  a  DO  LOOP  from  Appendix  K  -  LBA 


REPLOT  LBA  LASER  PROFILE 
PIXEL  BY  PIXEL  (120  X  120) 


SPECIFIC  DEVICE  AUTOMATION 


Cambridge  Research  Institute  -  Laser  Power  Controller 

CRl  offers  their  laser  power  controller  with  different  options 
built  into  it.  It  a  helpful  note  is  to  make  sure  which  type  you  are  using 
in  order  to  correctly  program  for  the  specific  parameters  it  has.  We  are 
using  a  model  that  can  change  the  percent  power  or  keep  the 
transmissibility  at  a  specified  amount.  Our  experiment  calls  for  the 
control  of  the  output  power.  Control  of  the  device  can  be  difficult  at 
times  with  an  erratic  laser  beam.  If  you  try  to  specify  a  power  level  where 
the  percent  amount  of  transmission  can  peak  at  times  over  100%,  than  the 
controller  will  be  in  error  and  leave  the  power  level  at  its  present  state. 
Ensure  that  tdien  you  wish  to  communicate  with  the  controller  that  a  laser 
beam  is  present.  If  the  laser  beam  isn't  going  throu^  the  controller  your 
communication  will  cause  a  system  crash  and  you  will  need  to  restart  the 
ASYST  program  by  iising  Control-Break. 

Hewlett  Packard  -  HP8116A  Signal  Generator 

Although  communicating  with  the  signal  generator  can  be  simple, 
the  number  of  different  parameters  adds  length  to  my  program.  The  basic  use 
for  the  program  is  to  save  particular  parameter  settings  to  be  restored  at 
later  dates  quickly  and  easily. 

Ithaco  -  Lock-in  Amplifier 

The  most  difficult  part  of  programming  for  the  lock-in  amplifier 
was  figuring  out  the  data  format.  Ithaco  sends  a  numeric  code  that 
describes  the  output  data.  The  data  may  come  in  64  different  combinations 
of  7  formats.  Displaying  which  formats  are  currently  being  used  is 
cumbersome  to  say  the  least.  I  had  to  make  sure  that  if  all  formats  were 
being  used  the  length  of  display  wasn't  longer  than  the  length  of  available 
screen  space.;  This  makes  displaying  the  data  itself  rather  arduous.  I  had 
to  limit  the  amount  of  data  to  10  different  sets  at  a  time. 

Klinger  -  Stepping  Motors 

The  Klinger  stepping  motors  are  an  essential  part  of  our 
experimental  setup.  My  ASYST  programming  allows  easier  control  over  the 
stepping  motors.  My  program  displays  the  counters  of  the  four  axes  of  one 
controller,  and  offers  moving  a  motor  to  a  specified  count.  I  have  made 
changing  the  stepping  rate  or  speed  of  the  motor  more  accessible  than 
through  the  front  panel  of  the  controller.  In  my  program  I  was  faced  with 
the  problem  of  inputting  a  letter  designating  a  particular  controller  and 
changing  it  to  an  integer  such  as  A-1,  B-2,  C-3,  etc.  Inside  my  colon 
definition  for  CHOOSE. CONTSOLLER  the  user  inputs  a  letter  and  "UPPER 
insures  that  the  letter  is  capitalized.  I  then  change  the  ASCII  letter  to 
it's  numeric  counterpart.  Since  the  upper  case  ASCII  characters  start  at 
65,  I  then  subtract  64  from  the  decimal  character.  Now  an  'A'  will  be  seen 
as  1  and  a  'B'  as  2  and  so  on.  The  useful  note  to  make  here  is  that  for 
some  reason  unknown  to  me,  ASYST  would  not  correctly  recognize  the  letter 
directly  following  an  input  statement.  This  causes  a  slight  problem,  but  I 


was  able  to  work  out  a  staple  solution.  After  the  input  statement  the 
letter  is  saved  into  a  variable,  ZD.  1  tried  to  take  the  ASCII  value  of  the 
variable  KD,  but  I  would  always  be  returned  with  the  ASCII  value  of  K.  In 
order  to  get  around  this  irritating  snag  I  put  the  ASCII  conmand  and  my 
variable  ZD  into  a  string.  I  then  used  "EXEC  to  execute  the  commands  inside 
the  string,  and  it  worked. 

Newport  •  Power  Meter 

The  power  meter  was  the  easiest  device  to  program.  Our  experiment 
just  needed  to  record  the  reading  from  the  meter.  The  Newport  model  offers 
talk  /  listen  or  talk  only  mode.  I  placed  the  meter  in  talk  only  mode  so 
that  it  continuously  sends  out  it's  current  reading  out  into  the  GPIB  bus. 
Whenever  I  need  a  power  reading  I  can  execute  a  GPIB  Read  from  ASYST  into 
string  variable.  Because  of  the  small  amount  of  programming  for  this 
device,  I  did  not  make  a  separate  sub  program  devoted  to  it.  To  date  you 
can  find  it's  use  in  the  'Joe'  program  for  the  Non-Linear  Optics  testing. 

Spiricon  -  Laser  Beam  Analyzer 

The  difficult  task  in  programming  for  this  device  is  the  large 
amount  of  string  space  needed  to  transmit  the  profile  from  the  analyzer 
into  the  ASYST  program.  The  profile  is  an  array  of  120  x  120  pixels  with  a 
measured  intensity  between  1  and  255.  This  means  a  string  of  over  14,400 
bytes  long.  Make  sure  you  have  the  available  mem^'ry  before  considering  to 
download  the  laser  beam  profile.  Reproducing  the  profile  is  even  more 
difficult.  The  only  known  way  to  reproduce  the  profile  is  pixel  by  pixel. 
Although  it  can  be  easily  programmed,  the  display  routine  is  rather  slow.  I 
have  also  had  trouble  with  sending  the  profile  back  to  the  analyzer.  To 
date  I  have  not  yet  succeeded.  The  laser  beam  analyzer  is  great  by  itself, 
but  communicating  with  an  IBM  PC  can  be  trotiblesome . 


NON-LINEAR  OPTICAL  SWITCH  TEST  PROGRAM 


Up  to  this  point  I  have  discussed  some  of  the  basic  elements  of  my 
GPIB  device  programs.  Another  program  has  been  written  that  incorporates 
most  of  these  device  programs  to  operate  our  optical  switch  testing.  This 
program  centers  around  a  nested  loop.  First  data  is  recorded  from  either 
the  laser  beam  analyzer  or  the  power  meter  and  then  the  Klinger  rotational 
stages  are  moved  to  another  angle.  An  option  has  recently  been  added  to 
allow  the  program  to  collect  data  and  then  change  the  power  of  the  laser 
beam.  With  this  option  the  rotational  stages  remain  at  their  current 
position.  The  progr^an  started  out  to  be  simple,  but  it  has  quickly  grown  to 
accommodate  different  testing  methods.  For  instance,  the  program  now  can 
collect  data  for  a  range  of  angles,  automatically  save  the  data,  change  the 
Z  axis,  and  repeat  the  procedure  (Figure  12).  Changing  the  Z  axis  lets  us 
collect  data  from  a  different  location  on  the  optical  switch.  Outside  of 
this  nested  loop  the  user  can  quickly  change  the  angular  position  of  the 
substrate,  change  the  power  of  the  laser  beam,  view  a  graph  of  the  latest 
collected  data,  and  save  the  data  in  different  formats. 


HOVE. SETUP 
MC4A  "  DW"  GW 
D.W  SR  D.W  3  20  "SUB 
HCAB  "  DZ"  GW 
D.W  GR  D.W  3  20 
X  5  *  V  +  1000  /  RX 

\  HC^B 


\  This  routine  calculates  the  current  substrate  angle 
\  from  the  counters  of  the  two  rotational  stages, 

0  "NUMBER  V  SS. CLEAR  \  then  calculates  the 

\  needed  positions  for  < 

SUB  0  "NUMBER  X  SS. CLEAR  \  desired  angle. 

\  RX  ^  Current  angle 
"z"  is  the  detector  and  must  be  positioned  at 
\  an  angle  twice  the  size  of  MC^A  "W"  (the  substrate) . 

\  The  MCUB  "Z"  axis  stage  is  100  counts  per  degree 
\  The  MCUA  "W"  axis  s"age  is  1000  counts  per  degree 
\  therefore  the  count  difference  is  1/5. 


13  FOREGROUND 

25  21  GOTO.XY  INPUT  THE  NUMBER  OF  DEGREES  FOR  THE  SETUP" 

11  FOREGROUND  7  BACKGROUND 

50  5  GOTO.XY  CLRSCR  1  10  "SUB  "TYPE 

50  5  GOTO.XY  "INPUT  SS  SS  0  "NUMBER  XHD.N  SS. CLEAR 


MC^A  \  Calculate  from  the  previous  angle  the  new  position 
\  of  the  substrate  stage. 

RX  2  *  KMD.N  -  1000  *  V':~  V  " SS  "  PW"  SS  "CAT  SS  SS  GW 
MCAB  KMD.N  RX  <  IF  RX  KMD.N  THEN 

KMD.N  RX  -  200  *  U  U  " SS  "  PZ"  SS  "CAT  SS  SS  GW 
STACK. CLEAR  SS. CLEAR 
13  FOREGROUND  0  BACKGROUND 

25  21  GOTO.XY  ."  WAIT  FOR  THIS  MESSAGE  TO  DISAPPEAR 
11  FOREGROUND  ; 

Figure  12.  Colon  Definition  from  Appendix  L  -  Program:  JOE. XXX 


Changing  the  angle  of  the  substrate  requires  some  calculation.  The 
rotational  stage  holding  the  detector  Is  located  beneath  the  stages  holding 
the  substrate.  This  means  that  for  every  degree  that  the  detector  moves, 
the  substrate  also  moves  that  same  amount.  Because  we  need  to  measure  the 
reflected  beam,  the  detector  must  be  at  an  angle  twice  the  angle  of  the 
substrate.  For  a  desired  substrate  angle  e,  the  detector  must  move  to  a 
position  of  29.  The  sxibstrate  then  must  move  an  angle  9  in  the  negative 
direction.  To  accomplish  this  feat,  the  current  angle  is  first  calculated 
from  the  ctirrent  axis  positions.  For  our  setup  the  "W  axis  on  the  first 
controller  operates  the  substrate  rotational  stage.  The  second  controller 
operates  the  detector  rotational  stage  on  the  "Z"  axis.  To  add  to  the 
complexity,  the  rotational  stage  for  the  substrate  (MC4A  "W")  moves  at  a 
rate  of  1000  steps  per  degree.  The  detector  stage  (MC4B  "Z”)  moves  at  the 
rate  of  100  steps  per  degree. 

After  the  current  angle  RX  is  calculated,  the  desired  angle  is  then 
inputted  by  the  user  as  IQfD.H.  The  desired  position  of  the  stage  is 
calculated  from  the  difference  between  the  previous  angle  and  the  desired 
angle  with  an  adjustment  based  upon  the  t3rpe  of  stage. 

The  rest  of  the  colon  definitions  are  similar  to  definitions  found  in 
the  device  specific  programs.  Because  I  had  taken  the  time  to  develop 
programs  for  each  individual  device,  I  can  now  easily  program  for 
combinations  of  different  devices  with  some  of  the  necessary  colon 
definitions  already  defined. 

AUTOMATED  DEVICE  CONFIGURATION 

As  I  increase  the  number  of  devices  on  the  GPIB  bus  and  in  my 
program,  I  notice  the  amount  of  available  program  memory  quickly  decreases. 
ASYST  constricts  your  conventional  memory  and  tokens  can  only  offer  a 
little  help.  I  have  designed  a  way  to  easily  change  which  devices  are 
loaded  into  memory.  The  program  is  configured  with  only  the  device  menus 
that  are  needed.  The  program  is  then  re-saved  on  to  the  hard  drive  with  a 
different  name  for  fast  loading  from  DOS.  This  keeps  devices  that  are  not 
being  used  from  taking  away  your  precious  memory.  Whenever  ray  main  menu 
program  is  initially  loaded  a  menu  configuration  option  is  offered.  Through 
this  menu  you  can  select  the  separate  menus  that  you  want,  or  don't  want 
loaded.  You  can  also  change  the  GPIB  device  characteristics  such  as  name, 
end  of  string  character  code,  and  GPIB  device  number.  Mouse  support  is  also 
configured.  All  of  these  settings  can  than  be  saved  under  a  new  name  to  be 
opened  from  DOS.  The  entire  program  reloaded,  but  the  menu  configuration 
option  will  have  been  deleted.  When  you  finally  leave  the  current  program, 
you  can  enter  the  saved  ASYST  program  with  the  name  that  it  was  saved 
under.  You'll  notice  that  it  won't  have  to  take  time  to  load  the  program, 
because  it  was  already  loaded  when  it  was  saved.  The  menu  options  will  be 
only  those  that  you  had  selected  earlier.  This  process  makes  my  programming 
more  versatile  to  the  demands  of  the  laboratory.  Although  it  is  easy  to  use 
and  may  not  appear  to  do  much,  it  is  extremely  complex  and  hard  to  program. 
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ADVANTAGES  TO  ASTST 

My  use  of  ASYST  has  centered  on  its  GPIB  control.  The  GPIB  bus  allows 
control  of  diffe.rent  devices  from  one  computer.  This  makes  laboratory 
control  easier.  The  GPIB  bus  is  manipulated  effectively  in  ASYST.  The  new 
menu  commands  make  programs  more  user  friendly.  Designing  similar  menus 
in  higher  level  languages  wo'<ld  take  many  hours  to  program.  The  menus  allow 
for  other  people  to  easily  operate  our  experiment  without  hours  of 
technical  program  training.  One  advantage  that  I  favor  is  the  colon 
definitions.  These  definitions  are  similar  to  macros,  but  are  easier  to 
create  and  modify  with  an  ASCII  text  editor.  ASYST  also  offers  statistical 
analysis,  mathematical  computations,  and  graphical  analysis  that  takes  time 
to  program  in  any  higher  level  language. 

DISADVANTAGES  OF  ASYST 

ASYST  (version  3.1)  doesn't  make  use  of  expanded  memory  available  in 
IBM  386  and  486  PCs  except  in  tokens.  Tokens  help  a  little,  but  plenty  of 
conventional  memory  could  be  saved  for  calculations  and  data  manipulation 
if  the  entire  program  was  loaded  into  expanded  memory.  If  more  conventional 
memory  was  freed  the  process itig  time  would  increase  and  so  would  the 
maximum  size  of  any  arrays.  I  have  recently  conversed  with  personnel  from 
the  ASYST  who  assured  me  that  a  new  version  will  be  coming  out  soon  making 
better  use  of  expanded  memory.  Instead  of  making  a  DOS  window,  ASYST  makes 
its  own  interface.  This  limits  the  amount  of  DOS  commands  available  inside 
ASYST  and  some  of  the  commands  are  used  differently.  It  is  usually  easier 
to  exit  to  DOS  rather  than  use  the  DOS  interface  commands.  Although  I  was 
pleased  with  the  ASYST  menu  commands  in  the  nomal  display  mode,  the  menu 
display  in  graphics  mode  did  not  work  as  well.  I'm  hopeful  that  in  the  next 
version  their  problems 
will  be  solved. 

FUTURE  USE  OF  ASYST  IN  OPTICAL  SWITCH  EVALUATION 

Our  evaluation  setup  will  be  measuring  the  transmitted  and  reflected 
light  from  the  switch  with  an  EG&G  Optical  Multi-channel  Analyzer  (OMA) 
and  an  Inrad  Autocorrelator.  The  OMA  system  will  analyze  the  spectrum  of 
the  light  to  include  the  wavelength.  A  GPIB  connection  will  be  made  from 
the  kejrpad  of  the  EG&G  spectrograph.  The  computer  will  then  control  the 
scanning  of  the  grating  inside  the  spectrograph. ,  which  is  receiving  the 
transmitted  or  reflected  laser  beam.  The  autocorrelator  will  then  be 
connected  to  a  LeCroy  9450  Oscilloscope.  The  oscilloscope  will  be  able  to 
save  waveforms,  find  deviations,  full  width  at  half  maximum  with  the 
background  light  subtracted,  and  separate  between  the  two  peaks  of  the 
split  laser  beam.  The  computer  will  then  be  connected  through  GPIB  to  the 
Oscilloscope  for  da  a  .extraction  and  furt?  er  analysis. 


There  are  inherent  limits  in  how  precisely  we  can  determine  the  reflectivity  versus  angle  of 
incidence  function.  Fi*st,  the  angle  of  incidence  cannot  be  fixed  more  precisely  than  the  angular 
divergence  of  the  laser  beam  at  the  point  of  incidence.  In  turn,  the  angular  divergence  is  a  function 
of  the  focussing  used  to  bring  the  laser  to  the  switch  surface.  The  greater  the  desired  peak  power  to 
be  delivered  to  the  switch,  the  shoner  the  focal  length  lens  needed  and  the  more  imprecisely  known 
the  angular  divergence.  The  position  of  the  laser  is  fixed  and  the  switch  must  be  rotated,  as 
illustrated  in  Figure  la,  through  a  given  angle  without  moving  the  irradiated  surface  in  any  linear 
direction  with  respect  to  the  laser  focus. 

The  detectors  must  move  synchronously  with  respect  to  the  switch  because  to  determine  the 
reflectivity,  both  the  incident  power  and  the  reflected  power  must  be  measured  at  each  angle.  The 
motion  of  the  switch  must  be  connolled  to  within  several  tens  of  microns  to  insure,  that  only  one 
pan  of  the  switch  surface  is  probed  during  the  entire  evaluation,  that  the  same  pan  of  the  laser  focal 
volume  contacts  the  switch  during  the  course  of  the  evaluation  and  that  the  size  of  the  laser 
contacted  region  does  not  fluctuate  beyond  that  dictated  by  geometry  during  the  evaluation.  Using 
the  notation  from  the  three  phase  system  modelled  by  Rgure  13,  this  latter  requirement  involves 
the  fact  that  as  the  angle  of  incidence  becomes  larger,  the  region  irradiated  by  the  laser  smoothly 
chMges  from  a  circle  at  fri=90°  to  almost  a  line  near  ^1=0°.  The  angular  precision  is  changing 
throughout  as  well  because  the  contacted  region  changes  shape  continuously.  The  laser  power  and 
polarization  must  be  precisely  determined  and  controlled  so  that  it  does  not  fluctuai  ?  during  the 
course  of  an  evaluation.  As  the  degree  of  focussing  of  the  laser  becomes  tighter,  the  tolerances  on 
these  parameters  only  become  more  less  precise.  Considering  that  the  intrinsic  divergence  of  our 
laser  pulses  is  in  the  range  of  milliradians  to  tens  of  milliradians,  and  that  relatively  long  focal 
length  lenses,  25cm,  were  used  to  focus  the  light  onto  the  switches,  the  angular  measurements  in 
the  results  are  thought  to  be  precise  to  ±10^  mrad. 
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Results 


The  notation  used  is  suggested  by  the  drawings  of  the  experimental  arrangement  given  in 
Figure  13.  The  top  diagram  is  for  a  standard  two  phase  system  and  the  lower  drawing  is  relevant  to 
the  three  phase  system  which  resembles  our  switches.  Two  procedures  were  used  to  obtain  the 
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where  r  is  the  Fresnel  Coefficient 


ft.  -  |r|^ 


f! 


At  an  interface. 

nk^HjCOS  8rnj2nkCOS  6k 
nk^HjCCS  9j+nj2nkCOs  0k 


There  ■$  an  ancie  0j.  for  wnicn  R//  .0  .  known  as  the  Brewster  ancie. 


these  reflecQons  are 


R/,=<.r//|2  ^  R12+R23  +  interference  effects 

(both  constructive  ana  cesiructive: 


Figure  13  Two  and  Three  Phase  systems  as  a  Basis  for  Fresnel 
Equation  Model  of  Switches 
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Tigure  14.  Power  Dependence  of  Reflectivity  for  Planar  Substrate  Switches 


i 


li 
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Figure  15.  Iteration  of  Fresnel  Equations  to  Obtain  a  Range  of  Reflectance  Values. 

X  =  1 ..  50  X  is  the  range  variable.  MathCad  allows  a  range  of  SO  for  each  variable  used. 

this  is  the  initial  value  for  the  index  of  re&action  of  the  thin  film  with 
1  ~  an  index  value  that  gives  us  the  reflectances  we  observed  from  F812RMP2.XLS 

at  40  degrees  incident  angle. 

n2(x+ 1)  ■  incremental  step  for  the  index  values. 

nl  =  1  Index  of  Re&acticm  of  first  medium  (air). 

n3  =  1.488392  Index  of  Refiacticxi  of  third  medium  (substrate). 

91  .=  68  Angle  of  Incidence  on  the  first  boundary  measured  fiern  the  normal. 

01p  =  01-^^  Conversion  fiem  degrees  to  radians. 

02,  =  asinj— sinfOlp)]—  Application  of  Snell’s  Law  to  achieve  refracted  angle  from  first  boundary 
X  1  i  ^ 


02p,  =  02, - 

X  180 


Conversion  from  degrees  to  radians. 


Iteration  of  Snell's  Law  once  again  provides  us  with 
the  refracted  angle  from  the  second  boundary. 


03p  s  03  ~  Conversion  from  degrees  to  radians  yields 
^  ^  180 

^  j  2  .  V^x)  cosIOlp)  -  nl-n2^cos^92p^]  Formula  used  to  calculate  the  coefficient  of  reflectivity  at  the  1 2  boundary. 

^n2jj^^cos(91p) +nl-n2jjCos(02pjj^ 

fn2jj)^-cos/9jpJ  -  n2jj'n3-cos/02pj 

r23  =  - - - r  Similiar  process  to  obtain  c.o.r.  at  the  23  boundary. 

(n2^J^-cos^03pjjy  +  n2jj-n3-cos^02pjjj 


h  =  .0000002  Thickness  of  thin  film. 

2.  =  .000000514  Wavelength  of  incident  light. 

2-  x-h-  n2jjCos  (02pjjj 


rl^-x  ^  '~23xexp^-2i-B^^  Complex  Coefficient  of  Reflectivity. 

[i +  (rl2^-r23^-exp(-2i-B,))] 

■  (j’^xi)^  Reflectance 


lu 
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Reflectance 


Fresnel  equation  Model 
using  Mathcad 


Film  Index  from  Fresnel's  Equations  by  ASYST 
0520F0KWK1 
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Film  Index 


Figure  16.  Gross  Dependence  of  Reflectivity  on  Index  of  Film 
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Figure  17.  Dependence  on  Reflectivity  on  Index  at  514  nm 
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Figure  18.  Power  Dependence  of  Index/Planar  Substrate 
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Figure  19.  Power  Dependence  of  Reflectivity/Prism  Substrate 
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index  of  refraction.  Our  fir?',  approach  involved  use  of  the  crossing  angle  between  reflectance 

vs  angle  curves  for  thf*  hlrnk  substrate  and  the  film-substrate  system.  Figure  14  shows  such  a  set 
of  curves.  The  index  Lf  refraction  of  the  film  can  be  shown  to  a  function  of  the  crossing  angle,  i.e. 
=60°C  for  the  data  sh  dv.t,.  The  fact  that  the  reflectance  curves  for  the  film  system  are  apparendy 
not  identical  at  two  different  laser  powers  sox»ngly  suggests  that  the  films  are  phctorefractive.  The 
fact  that  the  reflectivity  curves  of  the  same  blank  substrate  are  indistinguishable  at  the  two  different 
laser  powers  shows  both  the  reproducibility  of  the  measurements  and  the  poor  photorefractivity  of 
commercial  quartz. 


Since  we  require  the  index  of  refraction  of  the  films  as  a  function  of  laser  power,  and  there 
are  geometric  ambiguities  concerning  interpreting  the  interaction  as  a  function  of  angle,  we  instead 
devised  a  method  to  determine  the  index  of  refraction  of  the  films  for  a  given  angle.  This  method  is 
described  using  Figure  15  and  is  a  direct  application  of  the  Fresnel  equations(see  Figure  13).  The 
index  of  refraction  of  the  films  effectively  deteimines  the  angle  of  incidence  of  the  light  with  • 
respect  to  the  film  substrate  interface  so  the  equations  are  solved  repetitively  for  a  range  of  values 
of  the  film  index  n2.  Useful  tables  and  graphs  such  as  are  shown  in  Figures  16  and  17  can  be 
constructed  using  these  equations  which  relate  measured  reflectivities  to  values  of  the  film  index  of 
refraction.  Given  the  known  values  for  the  index  of  refraction  of  the  substrate,  the  film  thickness 
measured  using  profilimetry,  the  wavelength  of  the  light  and  the  other  nonadjustable  parameters 
given  in  Figure  15,  Figures  16  and  17  give  the  index  of  refraction  of  the  film  at  either  488  nm  or 
5 14  nm  based  on  the  measurement  of  the  net  reflectivity  without  any  adjustable  parameters.  ^  Iso 
shown  is  representative  data  obtained  from  the  switches.  Figure  18  shows  data  relating  the 
measured  index  of  refraction  of  a  switch  as  a  function  of  incident  power.  Considering  the 
reproducibility  of  our  reflectance  measurements,  each  of  the  data  points  in  Figure  18  could  have 
venical  error  bars  on  the  order  of  0.005.  The  totality  of  our  results  suggest  that  index  changes  on 
the  order  of  lO'^  for  application  of  1-10^  mW  onto  spot  sizes  having  lO^lO^  diameters  are 
probable. 


The  other  type  of  procedure  involved  putting  the  film  on  the  hypotenuse  of  a  right  triangle 
prism.  This  allowed  use  of  angles  very  close  to  that  required  for  total  internal  reflection  within  the 
film  volume.  Such  an  arrangement  was  first  employed  by  Tomlinson  et  al  in  their  proof  of 
principle  research.  Figure  19  shows  two  such  graphs  in  which  the  net  reflectivity  is  plotted  as  a 
function  of  the  laser  power  for  a  fixed  angle  of  incidence.  The  curves  are  clearly  nonlinear  in  a  way 
which  is  different  from  a  blank  substrate. We  have  not  yet  converted  these  reflectance 
measurements  into  index  of  refraction  measurements  but  it  is  clear  that  a  Fresnel  equation  approach 
along  the  lines  described  above  would  be  applicable. 
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Results 


To  motivate  a  discussion  of  our  results  on  the  testing  of  nonlinear  interface  optical 
switches,  it  is  necessary  to  present  some  background  on  materials  and  device  fabrication. 

Materials  and  Device  Fabricarion 

A  variety  of  theoretical  studies  support  the  expectation  that  metal  clusters'^,  metal  oxide 
clusters^,  dielectric  coated  metal  clusters^,  and  even  dielectric  coated  voids^  in  thin  metal  films  will 
have  an  enhanced  electrical  polarizability  compared  to  materials  with  the  same  chemical 
composition  but  without  the  the  submicroscopic  physical  features.  Thin  films  of  such  materials 
should  have  enhanced  photorefractive  properties  leading  to  applications^  in  nonlinear  optics, 
optical  computing  and  related  technologies.  We  have  recently  shown^.^O,!  1  how  to  deposit  thin 
films  composed  of  platinum  clusters  using  laser  chemical  vapor  deposition(LCVD).  Such  films 
have  the  unusual  optical/elcctrical  property  of  being  "transparent  metal"  electrodes  suggesting 
various  applications.  LCVD  cluster  synthesis  utilizing  non-noble  metals  is  fundamentally  different 
fix>m  that  of  other  metals  so  we  now  present  recent  results  demonstrating  the  synthesis  of  non- 
noble  metal  and  metal  oxide  clusters  and  thin  films  composed  of  such  clusters.  In  the  particular 
case  we  describe  below,  we  use  gas  phase  metal  carbonyl  precursors.  As  it  turns  out,  we  also 
demonstrate  the  unanticipated  result  that  carbonyl  impurities  are  localized  on  the  surfaces, 
regardless  of  whether  metal  or  metal  oxide  clusters  are  synthesized. 

Although  the  present  results  relate  to  tungsten  and  tungsten  oxide  cluster  films,  the 
chemistry  is  directly  applicable  to  other  oxidizable  metals.  Puretsky  and  Demyanenko^^  repon  that 
gas  phase  clusters  and  ultrafine  particles  can  be  synthesized  using  excimer  laser  dissociation  of  all 
group  six  metal  hexacarbonyls.  Our  earlier  work  on  platinum  clusters  and  our  current  results  on 
other  metals  both  suggest  that  the  clusters  which  arc  present  in  our  films  are  formed  by  gas  phase 
processes.  In  fact,  many^3»^^’15  have  studied  UV  dissociation,  in  both  single  and  multiphoton 
limits,  of  metal  hexacarbonyls  in  the  context  of  depositing  thin  films  for  microelectronic  device 
fabrication.  Incorporation  of  partially  decarbonylated  species  and  reaction  products  derived  from 
these  species  are  a  disadvantage  of  LCVD  of  metallization  patterns  for  microelectronic  applications. 
We  have  recently  shown  that  use  of  noncarbonylated  precursors  in  laser  chemical  organometallic 
synthesis  of  platinum  clusters  also  results  in  incorporation  of  organic  impurities  but  that  they  can 
be  removed  and  potentially  utilized  via  post-deposition  chemistry.  Gas  phase  and  post-deposition 


chemistry  is  limited  by  the  tendency  of  the  metal  to  oxidize  which  makes  the  results  we  now 
present  quite  distinct  from  our  earlier  LCVD  platinum  results. 

A  diagram  of  the  apparatus  used  to  perform  LCVD  of  free  standing  tungsten  and  tungsten 
oxide  cluster  films  on  transmission  electron  microscopyCTEM)  grids  and  on  GaAs  and  Ge 
substrates  is  shown  in  Figure  20^.  The  tungsten  hexacarbonyl(W(CO)6)  was  purified  by 
sublimation  before  being  loaded  into  a  specially  designed  aU  stainless  steel  gas/reactant  delivery 
system.  This  system  utilizes  a  molecular  sieve  drying  tube  to  remove  water  from  argon  carrier  gas 
which  was  used  to  entrain  the  tungsten  hexacarbonyl.  A  set  of  MKS  capacitance  manometers  and 
isolable  chambers  of  known  volume  to  measure  partial  and  total  pressures  and  flow  rates  in  the 
delivery  system  and  in  the  deposition  cell.  Although  this  apparatus  will  be  described  in  greater 
detail  later ^  6  it  suffices  to  point  out  that  utilizing  a  series  of  micrometer  valves,  and  lengths  of 
tubing  with  various  internal  diameters,  the  total  pressure,  flow  rate,  gas  stream  composition  and 
temperature  could  each  be  independently  adjusted. 

Figure  21  shows  a  TEM  of  a  free  standing  mngsten  film  deposited  by  LCVD  directly  onto  a 
TEM  grid  at  x2500  magnification.  At  much  higher  magnification,  x 150,000,  globular  clusters  are 
clearly  visible.  Electron  diffraction  of  one  of  these  nodules  indicated  by  an  arrow  was  performed 
and  only  interplanar  spacings  of  tungsten  are  evident^^.  The  tungsten  clusters  are  produced  using 
20  millitorr  of  tungsten  hexacarbonyl  at  62°C  with  argon  added  to  produce  a  total  pressure  of  70 
mtorr  in  the  deposition  cell.  This  pressure  is  lower  than  the  vapw  pressure  of  bulk  tungsten 
hexacarbonyl  at  the  same  temperature  because  we  are  working  in  a  flowing  cell.  Figures  21a,  b  and 
c  show  essentially  the  same  data  obtained  for  tungsten  oxide  clusters.  These  clusters  were 
deposited  using  the  same  partial  pressure  of  tungsten  hexacarbonyl  but  with  the  rest  of  the  total 
pressure  being  composed  using  02-  The  near  coalescence  of  the  diffraction  rings  into  spots 
presents  an  interesting  comparison  with  the  results  of  Mader^^  and  Aspnes^^  consistent  with  the 
idea  that  our  films  are  composed  by  condensation  of  clusters  of  varying  sizes. 
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Figure  20.  Laser  Chemical  Vapor  Deposition  Apparatus 
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particular  overlay.  Editor  overlay  is  a  simple  ASCII  text  editor  for 
altering  user  defined  ASYST  text  programs.  Although  it  is  not  needed,  it  is 
more  convenient  than  leaving  ASYST,  loading  another  ASCII  editor  or  word 
processor,  and  then  returning  to  ASYST.  If  you  plan  on  using  the  menu 
command  words  for  driving  your  programs  than  you  should  load  the  overlay 
Menu  Tools.  Other  suggested  overlays  to  load  are  Data.  Files,  and  the  Lotus 
1-2-3  File  Interface  found  in  File  Overlays.  This  section  is  also  important 
in  minimizing  the  memory  that  these  overlays  use.  After  selecting  the 
overlays  you  desire  and  press  Escape,  the  program  will  ask  if  you  want  to 
permanently  store  them.  Answer  yes,  otherwise  the  overlays  you  selected 
will  not  be  loaded.  Be  sure  of  your  choices  or  you  may  have  to  start  all 
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Graphics  Ouerlays 
Analysis  Ouerlays 
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External  Interfaces! 
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Type:  p  -  for  ouerlay  description 
U  -  to  find  a  desired  uord 
<esc>  -  exit  menu 


Figure  6.  ASYST  Overlay  Selection  Menu 
GPIB  Board  Configuration: 

After  entering  the  board's  bus  number,  which  is  usually  zero, 
you  can  select  which  GPIB  board  your  PC  has  from  the  highlighted  list  of 
choices.  If  your  GPIB  board  is  listed  but  not  highlighted  you  must  return 
to  the  Overlay  Configuration  and  choose  the  correct  driver  overlay.  Refer 
to  ASYST  Module  4  GPIB/IEEE-488  Appendix  D  for  a  list  of  supported  boards 
and  their  driver  overlays.  The  program  will  then  ask  several  questions  for 
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configuration  depending  on  which  type  of  GPIB  hoard  your  computer  uses.  You 
will  want  to  have  ready  the  base  address,  interrupts,  and  controller 
address . 


Memory  Configuration: 

This  configuration  menu  is  very  important  (Figure  7) .  ASYST 
uses  only  conventional  memory  (except  for  tokens)  which  can  fill  up  quickly 

h .  '  ■  I  —  —  ■■■■  ninini2e  Systen  ■  — —  '  "■  . . 


After  a  final  systen  has  been  constructed  by  loading  in  all  needed 
ouerlays  in  the  Ouerlay  Configuration  nenui  the  si2e  of  the  systen 
nay  be  ninini2edi  This  will  free  up  sone  space  in  the  systen  for 
other  areas  of  nenory  (those  in  the  next  nenu).  Hote  that  once 
this  is  done  to  a  systeni  no  nore  ouerlays  nay  be  added  using  the 
Ouerlay  configuration  nenui  (thereforei  be  careful  not  to  ninini2e 
the  original  copy  of  ASVSTi)  Also  note  that  this  ninini2ation  uill 
not  be  auailable  unless  a  Saue  is  nade  uhen  leauing  the  nain  config 
nenu. 


(1inini2e  Systen  (V/N):  <Q> 

Leaue  roon  to  load  systen  transient  ouerlays  (V/N):  <ia> 


Press  'V'  or  'H'  and  then  press  Esc  to  continue. 


Figure  7.  ASYST  Memory  Configuration 

with  large  programs  and/or  many  overlays  [1:11-2^].  To  get  the  most  out  of 
the  ASYST  memory  configuration  ensure  that  you  have  permanently  loaded  into 
memory  only  the  overlays  that  you  need  from  the  Overlay  Menu.  Then  select 
'yes'  for  ASYST  to  automatically  minimize  your  system  memory  form  the 
memory  configuration  menu.  If  you  are  sure  you  will  not  be  needing  any  more 
overlays,  do  not  allow  room  for  loading  transient  overlays.  Allowing  room 
for  one  transient  overlay  takes  up  36K  of  conventional  memory  space. 
Depending  on  your  intended  use  the  target  memory  can  be  changed  to  suit 
your  needs.  As  you  program  in  ASYST  you  can  check  your  memory  usage  at  the 
OK  prompt  with  ?memorj.  If  you  find  you're  running  out  of  room  for  one 
particular  target  memory,  go  back  to  the  memory  configuration  menu  to  make 
changes  in  memory.  Reassign  memory  according  to  your  needs.  You  may  want  to 
delete  all  of  your  defined  words  before  changing  your  memory,  otherwise  the 
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memory  configuration  will  be  permanently  saved  with  your  currently  defined 
word  definitions.  You  may  need  to  increase  your  conventional  memory  from 
DOS.  This  can  be  done  by  not  installing  devices  such  as  fastooen.  setver. 
and  aouse.com  in  your  Config.  srs  and  Aitt-nt^rer: .  bat  files  into  memory.  If  you 
have  a  386  you  can  use  the  DOS  expanded  memory  manager,  or  a  similar 
manager  such  as  the  (}ttsrt:ertiee1c  0EMM~386.  to  load  these  and  other  devices 
into  high  memory. 

Saving  ASYST  Configurations 

You  can  save  your  configurations  when  you  try  to  exit  the 
configuration  menu  or  type  save  filename. ext  at  the  OK  prompt.  Both 
procedures  create  a  .ovl  and  a  .com  file  to  execute  from  the  DOS  prompt. 

You  can  save  your  configurations  with  your  defined  words  or  text  programs 
loaded  into  memory.  This  saves  time  in  loading  them  every  time  you  enter 
ASYST  from  the  DOS  prompt.  GPIB  users  keep  in  mind  that  if  you  were  already 
initialized  and  "talking"  to  GPIB  devices  when  you  made  the  save,  you  still 
must  re- initialize  the  GPIB  bus  when  you  run  your  saved  program.  A  special 
note,  all  arrays  and  tokens  are  emptied  during  this  save.  Arrays  keep  their 
size,  but  not  their  data.  Tokens  lose  size,  data  and  place  in  memoiry  if  you 
had  them  put  into  expanded  memory. 
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Figure  21.  (a)  TEM  photo  of  high  pressure  tungsten  film  and  (b)  corresponding 

electron  diffraction  pattern,  (c)  TEM  photo  of  high  oxygen  pressure  film  and 
vd)  corresponding  electron  diffraction  pattern. 
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Figure  23.  FT-IR  Spectra  of  Aged  and  Nascent  Film 
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Figure  22a  shows  an  Fourier  Transform  Infrared  Absorption  Spectrum(FT-IR  spectrum)  of 
a  nascent  tungsten  tilm  deposited  as  described  above  onto  a  Ge  substrate.  There  is  evidence  of  a 
surface  oxide^O  which  probably  forms  immediately  upon  exposure  of  the  film  to  the  atmosphere. 
The  carbonyl  stretches  are  clearly  visible  and  occur  at  1935, 1942,  and  1962  cm'^.  All  of  these 
frequencies  are  coo  high  to  be  characteristic  of  bridging  carbonyls  suggesting  that  the  carbonyl  does 
not  exist  in  an  environment  conducive  to  bridging  between  metal  atoms.  This  almost  rules  out  an 
environment  internal  to  the  clusters.  An  FT-IR  of  the  same  film  aged  in  air  for  nearly  a  year  clearly 
which  can  be  seen  in  Figure  22b  shows  that  the  carbonyls  have  reacted  with  airborne  oxygen 
further  suggesting  that  they  could  not  have  been  buried  deep  in  the  cluster.  The  carbonyl  stretching 
fundamentals  are  still  clearly  visible  and  are  not  characteristic  of  bridging  interactions^^.  Figure22c 
shows  a  nascent  film  which  was  deposited  under  identical  conditions  for  LCVD  production  of  the 
metal  oxide  clusters.  The  carbonyl  stretches!  1969, 2008, 2106  cm'^)  are  again  clearly  visible  and 
not  characteristic  of  bridging.  In  both  Figure  22b  and  22c,  the  sharp  FT-IR  features  just  below 
3000  cm-1  are  as  yet  not  unambiguously  assignable.  We  currently  believe  they  can  be  identified 
with  formate  formed  by  the  catalytic  coupling  of  water  and  CO  which  we  believe  could  occur  on 
the  cluster  surfaces.  Although  we  are  currently  performing  a  variety  of  experiments  to  siippon  this 
assertion,  if  our  surmisal  is  correct,  the  water  could  be  supplied  from  the  substrate  or  the 
atmosphere. 

The  TEM  results  demonstrate  the  existence  of  clusters.  The  FT-IR  results  show  that 
bridging  carbonyls  are  never  present  in  either  nascent  or  films  extensively  aged  in  air.  Reactions  of 
the  carbonyls  associated  with  the  films  are  indicative  of  surface  bound  carbonyl.  We  are  currently 
pursuing  other  chemical  means  of  utilizing  the  carbonyl  impurities  as  reactant  for  producing 
composite  films  from  the  nascent  LCVD  films  we  have  shown  here. 


i) 
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Heating  the  tungsten  oxide  films  in  vacuum  and  m  an  oxygen  environment  has  potentially 
useful  consequences.  Raman  spectroscopy  shows  that  such  films  heated  in  oxygen  begin  to  show 
features  at  =  800cm*  ^  indicative  that  the  tungsten-oxygen  begin  to  organize  themselves  into 
octahedra.  This  is  significant  because  such  octahedra  are  thought  to  be  necessary  for  the 
photorefractive  effects  observed  in  titanates  and  niobates.  Heating  the  films  in  vacuum  produces 
peculiar  blue  films  which  ESCA  shows  contain  tungsten  in  the  +4  oxidation  state.  This  is 
significant  because  such  electron  rich  species  might  be  able  to  provide  highly  polarizable  charge 
carriers.  These  charge  carriers  would  enhance  the  photorefractive  properties  of  the  films.  ESCA  of 
nascent  laser  deposited  tungsten  oxide  films  clearly  show  the  presence  of  small  amounts  of 
tungsten  +5  which  is  necessary  to  produce  tungsten  bronzes.  Other  metal  ions,  involving  e.g.  Ti''’^ 
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and  Nb'*'2,  analogous  to  these  unusual  W  species,  are  required  to  achieve  the  photorefractive 
properties  of  the  well  known  titanate  and  niobate  photoreftactive  materials. 

Correlation  of  film  composition  with  static  and  dynamic  index  of  refraction  measurements 
is  best  accomplished  using  ESCA,  UV-visible  and  infrared  spectroscopic  methods  in  both 
absorption  and  reflection.  Current  plans  involve  use  of  Kramers-Kronig  relations  to  obtain 
complete  index  measurements  across  the  entire  IR-UV  spectrum.  Film  composition  is  not  well 
determined  by  Auger  spectroscopy  because  of  electron  beam  induced  changes  in  the  film  and 
because  of  the  small  spot  size  in  which  measurements  are  made.  Using  Auger,  the  spot  size  is 
commensurate  with  the  size  of  the  clusters  and  so  many  measurements  must  be  made  to  obtain 
accurate  average  values  for  the  film  metal-oxygen  stoichiometry. 

Discussion 

We  have  demonstrated  that  we  have  provided  films  composed  of  metal  oxide  clusters.  We 
have  measured  two  types  of  optical  data  both  of  which  suggest  the  films  have  measurable  nonlinear 
susceptibilities.  Attempts  to  quantitate  the  amount  of  refractive  index  change  are  imprecise  but,  for 
films  =200A  thick,  could  be  as  high  as  10*1  Watrl  at  514  nm.  Obtaining  precise  estimates  is 
possible  but  reproducibility  makes  it  a  challenge.  Use  of  a  prism  hypotenuse  as  a  switch  substrate 
seems  to  give  an  output  which  is  much  more  sensitive  to  the  film’s  photorefractive  response.  These 
results  will  be  discussed  in  the  context  of  the  switch  evaluation  and  the  design  criteria  and 
properties  of  the  nonlinear  interface  approach  to  switches  in  general. 

Given  the  multitude  of  predictions  which  have  been  made  considering  the  optical  and 
electrical  properties  of  clusters,  we  felt  it  important  to  definitively  establish  their  presence  in  the 
switches  we  were  able  to  fabricate.  We  varied  fabrication  conditions  such  that  the  cluster  size 
distribution  varied  from  an  average  of  about  a  few  10*  A  in  diameter  to  multi- lO^A  diameters.Based 
on  existing  calculations,  clusters  in  the  size  range  X/IO  to  1.5X.  should  possess  enhanced  nonlinear 
optical  properties.  The  data  suggests;  1)  we  have  developed  the  capability  to  observe 
photorefractive  effects  with  great  sensitivity,  and  2)  it  may  well  be  true  that  we  have  already 
observed  some  very  large  effects.  We  are  cautiously  encouraged  by  these  results  but  we  know  that 
more  woric  is  required  to  make  unequivocal  statements. 

One  problem  is  the  difficulty  in  establishing  the  reproducibility  of  the  results.  Funher,  the 
results  we  currently  have  are  not  yet  good  enough  to  suggest  a  physical  mechanism  underlying  the 
photorefractive  properties,  i.e.  a  y}  or  effect  Since  we  have  established  that  the  quartz 
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substrates  have  extremely  small  nonlinear  optical  coefficients,  any  change  in  the  reflectivity  can  be 
taken  to  be  mostly  caused  by  the  film's  properties.  Since  the  refractive  index  can  be  readily  related 
to  the  induced  polarizadon,  which  in  turn  can  be  related  to  the  applied  optical  intensity  via  the  usual 
expansion  in  the  nonlinear  susceptibility,  given  better  data  we  know  we  will  be  able  to  determine 
the  type  of  interaction  leading  to  the  photorefractive  effects.The  data  in  the  figure  is  typical  of  what 
we  have  obtained  repeatedly.  Recall  that  we  showed  in  Rgure  17  that  we  can  collect  extremely 
reproducible  data.  This  has  led  us  to  suggest  that  the  films  are  somehow  being  irreversibly  changed 
by  the.  evaluation  process.  The  chemistry  we  have  observed  using  FT-IR  clearly  shows  that  there  is 
some  irreversible  chemistry  which  occurs  over  very  long  periods  of  time.  Perhaps  the  testing 
regimen  accelerates  this  process.  We  employed  the  analytical  methods  mentioned  in  the  Results 
section  to  discover  the  possible  modifications  which  could  be  taking  place. 

However,  so  far  all  methods  we  used  to  analyze  the  films  were  static  methods.  It  is  quite 
possible  that  the  photorefractive  effects  we  are  observing  occur  on  the  timescale  of  the  laser  pulses, 
i.e.  100  psec.  Such  effects  would  not  be  unambiguously  observable  using  the  static  methods  so  far 
employed.  Note  that  the  fastest  photorefractive  effects,  would  be  based  on  nonresonant  interactions 
and  that  these  would  certainly  only  be  observable  on  the  timescale  of  the  laser  pulses  or  faster.  The 
fastest  photorefractive  responses  are  those  involving  the  smallest  amount  of  movement  of  mass. 
Purely  electronic  motions  are  therefore  obviously  the  fastest  The  only  way  to  definitively  explore 
these  possibilities  is  to  use  single  pulse  pump-probe  experiments  which  arc  planned  for  the  near 
future.  Based  on  UV-visible  spectroscopy,  we  plan  experiments  at  longer  wavelength,  800- 
900nm,  which  should  be  more  nearly  resonant  with  an  absorption  and  therefore  even  more 
strongly  photorefractive.  What  we  lose  in  speed  might  be  compensated  for  in  the  strength  of  the 
response. 

Periiaps  the  most  interesting  result  of  this  study  is  the  sense  that  the  nonlinear  optical 
properties  of  the  clusters  are  very  impressive.  Since  the  switches  we  have  tested  are  composed  of 
films  we  have  shown  to  be  nominally  «200nm  thick,  and  the  clusters  average  lO^A  in  diameter,  it 
is  clear  that  the  films  are  only  10-20  clusters  thick.  For  a  spot  size  of  SOpro  in  diameter,  a 
conservative  estimate,  only  Iff^-lO^  clusters  are  being  used  to  produce  a  single  element  switch. 
This  suggests  that  the  theoretical  shot  noise  limit  on  the  signal  to  noise  ratio  for  a  single  shot  test  of 
the  switch  should  be  =100.  Lack  of  uniformity  of  the  films,  in  either  thickness  and/or  composition, 
will  only  degrade  this  expectation.  Since  the  spot  size  changes  shape  and  size  as  the  angle  of 
incidence  is  varied,  uniformity  can  clearly  become  an  issue.  However,  for  a  test  in  which  the  angle 
of  incidence  in  kept  constant  while  ramping  the  incident  power,  the  growth  in  focal  volume,  due  to 
diffraction,  imposes  must  less  stringent  constraints.  Thus,  the  total  internal  reflection 
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configuration.  Figure  lb,  should  definitely  be  the  choice  for  future  nonlinear  interface  optical 
switch  work. 

Simulations  strongly  suggest  that  use  of  substrates  like  ZnS  will  be  advantageous  in  all 
switching  ^plication  because  they  more  closely  match  the  static  index  of  the  f!lm(s).  The  effects 
we  observe  are  almost  certainly  purely  electronic  in  nature  and  involve  no  movement  of  mass 
whatsoever.  Attempts  to  make  cluster  films  which  are  thicker  have  not  been  successful  so  far.  This 
is  because  we  have  needed  to  modify  our  deposition  apparatus.  Currently,  as  the  films  get  thicker, 
they  begin  to  undergo  ablation  about  as  much  as  thickening  by  additional  deposition.  This  problem 
can  be  overcome  by  using  LCVD  without  contacting  the  films.  Thicker  films  will  allow  more 
clusters  to  be  involved  in  the  switching  process  and  should  therefore  increase  the  photorefracdve 
response. 

Conglusions 

The  films  used  for  implementing  nonlinear  interface  switches  may  indeed  display  large 
photorefiactive  effects.  The  evaluatio'*  such  switches  must  be  carried  out  using  single  pulse, 
pump-probe  methods  to  eliminate  the ;  visibility  of  artifacts.  A  total  internal  reflection 
configuration  is  strongly  indicated  for  implementing  switch  devices  in  future  effort  It  is  clear  the 
best  embodiment  of  a  nonlinear  interface  switch  is  with  a  prism  as  a  substrate.  Use  of  planar  * 
substrates  has  allowed  definite  determination  of  the  static  index  of  refraction  of  the  films.  Use  of 
prism  substrates  allows  use  of  an  angle  of  incidence  which  is  so  close  to  the  critical  angle  for  total 
internal  reflection  at  the  film-air  interface  that  the  only  leakage  through  the  film  is  due  to  the  angular 
divergence  of  the  laser  beam. 
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Appendix  A  *•  Diagraa  of  Laboratory 


Non-Linear  Optical  Switch  Testing 


Appendix  B  -  Program:  QPIB.XXl  (Main  Menu) 


||  -  . - — . — .  - -  ■ 

GRAPHICS. DISPLAY  VUPORT. CLEAR  \  CLEAR  ALL  ASYST  STACKS 

NORMAL . DISPLAY  FORGET . ALL  \ 

SS. CLEAR  STACK. CLEAR  \ 

ECHO. OFF  \ 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 


\  \ 

\  MENU  FOR  GPIB  OPERATING  DEVICES  \ 

\  \ 

\  by  Brian  K.  DeVaul  \ 

\  \ 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

\  \ 

\  Some  commonly  used  commands  have  been  shorten  to  save  typing  \ 

\  speed.  There  is  a  list  of  the  newly  defined  words  in  the  file  \ 

\  called  GPIB2.XXX.  \ 

\  \ 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 


\ 


**************  load  OPERATING  SUBFILES  FOR  GPIB  PROGRAM 


/ 


LOAD  GPIB2.XXX 
LOAD  GPIB3.XXX 
LOAD  GPIB4.XXX 


\  SHORT  COMMANDS  FILE 
\  GPIB  CONFIGURATIONS 
\  COMMON  VARIABLES 


\  **************  DEFINE  GPIB  MAIN  MENU  SPECIFIC  VARIABLES  ****************  / 


INTEGER  SCALAR  NUMBER . OF . MODULES 
INTEGER  SCALAR  FIRST. LOAD 
INTEGER  DIM(  50  ]  ARRAY  CMDAT 
36  STRING  MODULE. MENU 
DIM[  21  ,  36  ]  STRING. ARRAY  MODULES 
DIM[  21  ,  36  ]  STRING. ARRAY  MODULES. DESC 
0  FIRST. LOAD 
0  NUMBER. OF. MODULES 
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:  MOUSE 

0000  CALL. MOUSE  4  *DROP 
65535,  SET. MOUSE. INT 
13  27  SET. MOUSE. BUTTONS 
3000  CALL. MOUSE  4  ROLL  DROP  ; 


:  LOAD. GPIB. MODULES 


FILE. OPEN  DATAFILE. XXX 

20  1  DO  I  COMMENT>  MODULES  “[  I  ]  LOOP 

20  1  DO  I  20  +  COMMENTS  MODULES. DESC  "[  I  ]  LOOP 

1  SUBFILE  CMDAT  FILE>ARRAY 
FILE. CLOSE 


21  1  DO  \  COUNT  THE  NUMBER  OF  MODULES  BEING  LOADED 

CMDAT  [I]1-IF  Zl+Z:-  THEN 
LOOP  Z  NUMBER. OF. MODULES 

I  CMDAT  [  22  ]  -  IF  1  FIRST. LOAD  0  CMDAT  (  22  ]  :-  THEN 

\  DETERMINES  IF  THE  MENU  CONFIGURATION  WAS  USED 

II  1  DO  CMDAT  [  I  ]'  1  -  \  LOAD  MODULES  DESIGNATED  IN  CMDAT 

IF  "  LOAD  "  MODULES  "(I  1  -TRAILING  "CAT  \  LOAD  name. XXX 

"  .XXX"  "CAT  "EXEC  SS. CLEAR  \ 

THEN  \ 

LOOP  \ 

1  CMDAT  [  11  ]  -  IF  MOUSE  THEN  ;  \  IF  DESIGNATED,  LOAD 

\  MOUSE  SUPPORT 

\  -ji.-*******************  LOAD  DEVICE  SPECIFIC  SUBFILES  *!»r*****************^  / 

LOAD. GPIB. MODULES  \  USE  COLON  DEFINITION  FOR  LOADING 
LOAD  GPIB5.XXX  \  LOAD  MENU  CONFIGURATION  MENU 


\  ************************ 


Designing  the  MAIN  menu  *******************  \ 


:  PROMPT  MENU. ESCAPE  ; 


LOAD. MENU. ITEMS 

3  X  NUMBER. OF. MODULES  Z 
20  1  DO  CMDAT  [  I  ]  0  - 

IF 

ELSE  Z  7  < 


\  SETUP  MENU  OPTIONS  FOR  THE  LOADED 
\  MENU  PROGRAMS 
\ 

\ 

\ 


IF  X  2  +  X  ELSE  X  1  +  X  THEN 
"  MENU.ITEM{  "  MODULES  "[  I  ]  "CAT  "  .MENU  "  "CAT  "  )"  "CAT 
MODULE. MENU 

X  5  MODULES. DESC  "[  I  ]  MODULE. MENU  "EXEC 
THEN 
LOOP 


5  Z  \  OFFER  MENU  CONFIGURATIONS  IF  THERE 

0  FIRST. LOAD  -  \  WASN'T  A  PREVIOUS  SAVE 

IF  5  A5  "  MENU  CONFIGURATIONS"  "  MENU. ITEM {  CONFIG. MENU  )"  "EXEC 
ELSE  THEN  ; 


:  MAIN.STAT  \  ITEMS  TO  BE  DISPLAYED  WITH  MAIN  MENU 

A  FIRST. LOAD  -  IF  2  FIRST. LOAD  CONSOLE  MENU. ESCAPE  THEN 
12  FOREGROUND 

60  1  GOTO.XY."  DATE:  "  "DATE  "TYPE  \  DISPLAY  CURRENT  DATE 

9  FOREGROUND 

AO  16  GOTO.XY  ."  USAF  PHOTONICS  CENTER" 

AO  17  GOTO.XY  ."  GRIFFIS  AIR  FORCE  BASE" 

AO  18  GOTO.XY  ."  ROME,  NEW  YORK" 

10  FOREGROUND 

60  21  GOTO.XY  ."  by  Brian  DeVaul" 

11  FOREGROUND  ; 


MAIN. MENU 

"  GPIB  DEVICE  MAIN  MENU" 
MENU. STATUS  MAIN.STAT 
MENU. BLOW. UP 
1  1  2A  78  MENU. SHAPE 
0  11  MENU. COLOR 
15  MENU. PROMPT. COLOR 
LOAD. MENU. ITEMS 
7  A5  "  EXIT  TO  THE  'OK' 
9  A5  "  EXIT  TO  DOS"  MENU 
MENU. END 


\  DEFINED  MENU  NAME  (  GPIBA.XXX  ) 
MENU. TITLE  \ 

\  DISPLAY  COLON  DEFINITION 

\ 

\  SIZE  OF  THE  MENU 
\  FOREGROUND  AND  BACKGROUND  COLORS 
\  HIGHLIGHT  COLOR 
\  LOAD  MENU  OPTIONS 
PROMPT"  MENU.ITEM{  PROMPT  ) 

ITEM{  BYE  ) 


\  \\\\  START  MENU  PROGRAM 
:  START 

11  1  DO  CMDAT  [  I  ]  1  -  \  RELOAD  TOKENS  AND  ARRAYS  THAT  ERASED  DURING 

IF  "  RELOAD."  MODULES  "[  I  ]  "CAT  "EXEC  THEN  \  SAVE. 

LOOP 

SCREEN. CLEAR 

INIT  .  \  INITIALIZE  GPIB 

MAIN. MENU  MENU. EXECUTE  ;  \  BEGIN  MENU  PROGRAM 


:  GO  START  ; 


;  CONFIG. RESTART  \  SAVE  NEWLY  CONFIGURED  PROGRAM  AFTER  RELOADING 

1  FIRST. LOAD  -  \ 

IF  FILE. OPEN  DATAFILE. XXX  41  COMMENT>  FILE. NAME 

2  FIRST. LOAD  1  SUBFILE  CMDAT  ARRAY>FILE  FILE. CLOSE 
"  SAVE  "  FILE. NAME  "CAT  "EXEC 
INIT  \  INITIALIZE  GPIB 

ELSE 
THEN  ; 

CONFIG. RESTART  \  IF  THIS  FIRST  TIME  LOADED,  FIRST. LOAD  -  0 
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Appsndix  C  -  Program:  aPIB2.XZX  (Shortened  Commands ) 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

\  \ 

\  SHORT  COMMANDS  FOR  ASYST  \ 

\  \ 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

\ 
\ 
\ 
\ 

\  WwWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

\ 


Some  commonly  used  commands  have  been  shorten  to  Increase  typing 
speed.  Here  is  a  list  of  the  newly  defined  words. 


GD  GPIB. DISPLAY  ; 

ND  NORMAL. DISPLAY  ; 

SD  STACK. DISPl  Y  ; 

SC  STACK. CLEAR  ; 

?GDS  ?GPIB. DEVICES  ; 

?GD  9GPIB.DEVIC''  ; 

GPD  GPIB. DEVICE  ; 

GW  GPIB. WRITE  ; 

GR  GPIB. READ  ; 

?SRQD  ?SERVICE. REQUEST  DROP 
SPD  SERIAL. POLL  DROP  ; 

[]GB  (]GPIB. BUFFER  ; 

BL  BUFFER. LISTEN  ; 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


GPIB.DISPIAY 
MORMAL. DISPLAY 
STACK. DISPLAY 
STACK. CLEAR 
?GPIB. DEVICES 
?GPIB. DEVICE 
GPIB. DEVICE 
GPIB. WRITE 
GPIB. READ 
\  ?SRQD  -  7SERVICE. REQUEST  DROP 
SERIAL. POLL  DROP 
[] GPIB. BUFFER 
BUFFER. LISTEN 


GD 

ND 

SD 

SC 

?GDS 

?GD 

GPD 

GW 

GR 


T  TALK  ; 
LI  LISTEN 


\ 

\ 

\ 

\ 

\ 

\ 

\ 


SPD 

UGB 

BL 


T 

LI 


TALK 

LISTEN 


INIT 


\  INITIATE  GPIB  DEVICE  CONTACT 


BUS . INIT 

\ 

1) 

INITIATE  BUS 

SEND . INTERFACE . CLEAR 

\ 

2) 

CLEAR  INTERFACE 

REMOTE. ENABLE. ON  ; 

\ 

3) 

TURN  ON  REMOTE 

\ 


F  FORGET. ALL 


\  CLEAR  TEMPORARY  DEFINITIONS 


FA  GRAPHICS . DISPLAY 


CFK  CLEAR. FUNCTION. KEYS 
FKD  FUNCTION. KEY. DOES 


VUPORT. CLEAR  NORMAL. DISPLAY  F  ; 

\  CLEAR  DEFINITIONS  TO  INCLUDE  GRAPHICS 
\  CLEAR  FUNCTION  KEYS 
\  CHANGE  FUNCTION  KEY  OPERATION 


DG 


GRAPHICS. DISPLAY 
VUPORT. CLEAR  ND  F 
EDIT 


\  DELETE  DEFINITIONS,  GRAPHICS 
\  AND  RETURN  TO  ASCII  TEXT  EDITOR 


\ 

\ 
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Appendix  D  -  Program:  6P1B3.XXX  (6PIB  Device  Configurations) 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  \ 

\  \ 

\  GPIB  CONFIGURATION  FILE  \ 

\  \ 
\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  \ 
\  INSTRUCTIONS :  \ 

\  \ 

\  1)  PgDn  to  Device  to  be  Changed.  \ 

\  \ 

\  2)  Edit  the  Parameters  of  the  Device.  \ 

\  a)  The  name  of  the  device  follows  the  command  \ 

\  GPIB. DEVICE  as  follows  ;  \ 

\  ex.  1  GPIB .DEVICE  Device. Name  \ 

\  where  1  is  the  Primary  Address  for  the  Device.  \ 

\  b)  The  End  Of  String  (EOS)  character  is  configured  in  \ 

\  ASCII  code.  \ 

\  ex.  10  EOS. CHARACTER  \ 

\  where  10  is  ASCII  for  Line  Feed.  Consult  an  ASCII  table  \ 

\  for  correct  codes.  \ 

\  \ 

\  3)  When  you  are  finished  editing,  \ 

\  a)  Press  F9  to  save  the  new  configuration.  \ 

\  b)  Then  Press  FIO  to  exit  the  Editor.  \ 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  \ 


1  GPIB. DEVICE  DEVI 

10 

EOS.  CHARACTER 

EOS. ON 

2  GPIB. DEVICE  DEV2 

10 

EOS . CHARACTER 

EOS. ON 

3  GPIB. DEVICE  DEV3 

10 

EOS . CHARACTER 

EOS. ON 

4  GPIB. DEVICE  NWPM835 

10 

EOS . CHARACTER 

EOS. ON 

5  GPIB. DEVICE  DEVS 

10 

EOS. CHARACTER 

EOS. ON 

6  GPIB. DEVICE  DEV6 

10 

EOS. CHARACTER 

EOS. ON 

7  GPIB. DEVICE  DEV7 

10 

EOS. CHARACTER 

EOS . ON 

8  GPIB. DEVICE  LPC 

10 

EOS . CHARACTER 

EOS. ON 

9  GPIB. DEVICE  DEV9 

10 

EOS. CHARACTER 

EOS. ON 

10  GPIB. DEVICE  DEVIO 

10 

EOS . CHARACTER 

EOS. ON 

11  GPIB. DEVICE  DEVll 

10 

EOS. CHARACTER 

EOS. ON 

12  GPIB. DEVICE  MC4A 

10 

EOS. CHARACTER 

EOS . ON 

13  GPIB. DEVICE  MC4B 

10 

EOS. CHARACTER 

EOS. ON 

14  GPIB. DEVICE  LBA  100 

10 

EOS . CHARACTER 

EOS. ON 

15  GPIB. DEVICE  ITH385 

10 

EOS. CHARACTER 

EOS. ON 

16  GPIB. DEVICE  GEN 

13 

EOS. CHARACTER 

EOS. ON 

INIT  \  Re -Initialize  after  Loading 


'•  • 
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Appendix  E  •  Program:  6PZB4.ZZZ  (Common  Variables  &  Commands) 


\ 

\ 

\ 

\ 

\ 


wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

\ 

COMMON  VARIABLES  \ 

\ 

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 


15  STRING  COM 
3  STRING  UNITS 
5  STRING  COM. DATA 
36  STRING  CLRSCR 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 

SCALAR 


X. C 

Y. C 
COLUMN 
YC 
AOD 

P 

DATA.L 

D 


\  COMmand  string  to  talk 
\  Change  Units 
\  Cliange  Parameter  Data 
\  CLEAR  CHANGE  PARAMETER  SCREEN 
"  CLRSCR 
\  X  COORDINATE 
\  Y  COORDINATE 
\  SCREEN  COLUMN 
\  Y  COORDINATE  . 

\  AMOUNT  OF  DATA 
\  PARAMETER  NUMBER 
\  LENGTH  OF  DATA 
\  DATA  FORMAT 


2  STRING  NTS  \  NUMBER  OF  TESTS 

10  STRING  DF  \  DATA  FORMAT 


DIM[  28  ,  21  ] 
DIM(  6  ,  10  ] 
DIM[  32  ,  36  ] 
dim;  88  ,  36  ] 
DIM[  57  ,  8  ] 


STRING, ARRAY  DATA. TEXT. 385 
STRING. ARRAY  DATA. FORMAT 
STRING. ARRAY  UNITS .DISPLAY. 385 
STRING . ARRAY  UNITS . DISPLAY . SG 
STRING. ARRAY  DATA . TEXT , SG 


35  STRING  FILE. NAME 


INTEGER 

SCALAR 

CUT 

0  CUT  :-  \ 

BYPASS 

FOR  READING 

SAVED  SETTINGS 

INTEGER 

SCALAR 

T 

\ 

INTEGER 

SCALAR 

M 

\ 

AMBIGUOUS  VARI 

3LES 

INTEGER 

SCALAR 

N 

\ 

INTEGER 

SCALAR 

X 

\ 

INTEGER 

SCALAR 

Y 

\ 

INTEGER 

SCALAR 

Z 

\ 

INTEGER 

SCALAR 

C5F 

INTEGER 

SCALAR 

C5IF 

INTEGER 

SCALAR 

CSIF 

INTEGER 

SCALAR 

C5B 

INTEGER 

SCALAR 

C5IB 

INTEGER 

SCALAR 

CSIB 

INTEGER 

SCALAR 

C5P 

INTEGER 

SCALAR 

C5S1 

INTEGER 

SCALAR 

CSIP 

INTEGER 

SCALAR 

CSF 

INTEGER 

SCALAR 

C5S2 

INTEGER 

SCALAR 

CSB 

INTEGER 

SCALAR 

C5S3 

INTEGER 

SCALAR 

CSP 

INTEGER 

SCALAR 

C5S4 

1  CSB  14  CSF 

DP. REAL 

SCALAR 

RX 

\ 

REAL  DATA  X 

DP. REAL 

SCALAR 

RY 

\ 

REAL  DATA  Y 

■i 

i 

•'1 

j 


i 
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10  STRING  SS 

10  STRING  ERROR, TRAP. ON 

10  STRING  ERROR. TRAP. OFF 

20  STRING  FILE. PATH 

15  STRING  NAME. FILE 

36  STRING  DEVICE. DESCRIPTION 


\  SHORT  STRING 
\ 

\ 

\ 

\ 

\ 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
\  \ 

\  DECLARE  COMMON  MENUS  \ 

\  \ 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

MENU  MAIN. MENU 
MENU  COLOR. MENU 
MENU  CONFIG. MENU 
MENU  SAVE. RESTORE. MENU 
MENU  STARTUP. MENU 


0 


0 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  • 

\ 

\  COMMON  COLON  DEFINITIONS 

\ 

\  wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

\  RETURN  TO  O.K.  PROMPT  •  • 

:  OKP  MENU. ESCAPE  MENU. ESCAPE  MENU. ESCAPE  MENU. ESCAPE  ; 

:  CLR. UNITS. DISPLAY  \  CLEAR  UNITS  DISPLAY 

,  40  1  GOTO.XY  CLRSCR  "TYPE 
40  2  GOTO.XY  CLRSCR  "TYPE 

40  3  GOTO.XY  CLRSCR  "TYPE  ;  • 


\  CLEAR  DATA  DISPLAY 

:  CLR.DATA  X.C  Y.C  GOTO.XY  CLRSCR  1  COLUMN  "SUB  "TYPE  ; 

:  SAVE. RESTORE. STATUS 

5  5  GOTO.XY  ."  Press  ENTER  after  typing"  • 

5  7  GOTO.XY  ."  Press  ESCAPE  when  finished"  ; 

SAVE. RESTORE. MENU 

MENU. STATUS  SAVE . RESTORE . STATUS 
MENU. BLOW. UP 

MENU. NO. PROTECT  • 

8  20  16  60  MENU. SHAPE 
CSB  CSF  MENU. COLOR 

12"  ENTER  DIRECTORY  PATH"  MENU.ITEM{  FILE. PATH  ) 

3  2  "  ENTER  FILENAME"  MENU.ITEM{  NAME. FILE  ) 

MENU. END 

• 
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•  •  • 


Appendix  F  ~  Prograa:  6PZB5.ZXX  (Automated  Menu  Configuration) 


MENU  DEVICE. MENU  \  DECLARE  MENU 

:  MAKE. DEVICE. COLON. DEFINITIONS  \  CREATE  COLON  DEFINITIONS  AS  MENU 

\  OPTIONS  TO  CHANGE  LOADING  STATUS 
11  1  DO  MODULES  "[  I  ]  "NULL  \  (ON-1,  OFF-O) .  THE  MENU  OPTIONS 
IF  \  ARE  DEPNDENT  UPON  WHAT  MODULES 

ELSE  "  :  "  MODULES  "[  I  ]  -TRAILING  "CAT  \  ARE  CURRNETLY 
"  .ZZZ  CMDAT  I  "  "CAT  I  "."  "CAT  \  AVAILABLE  IN 
"  ]  1  -  IF  0  CMDAT  [  "  "CAT  I  "."  "CAT  \  DATAFILE. XXX 
"  ]  ELSE  1  CMDAT  [  "  "CAT  I  "."  "CAT  \ 

"  ]  THEN  :  "  "CAT 

"EXEC  SS. CLEAR 

THEN 
LOOP  : 

MAKE. DEVICE. COLON. DEFINITIONS  \  CREATE  THE  DEFINITIONS  WHEN  THIS 

\  TEXT  FILE  IS  LOADED. 

:  DEVICE. SELECTION  \  LOAD  THE  MENU  OPTIONS  FROM 

3  X  \  INSIDE  THE  MENU  DEFINITION. 

11  1  DO  X  1  +  X  MODULES  "[  I  ]  "NULL  IF 

ELSE  "  MENU.ITEM{  "  MODULES  "(  I  ]  "CAT  "  .ZZZ  "  "CAT  "  )"  "CAT 

MODULE. MENU  X  5  MODULES. DESC  "[  I  ]  MODULE. MENU  "EXEC  THEN 

LOOP  : 

:  DEVICE. STAT  \  MENU  DISPLAY 

4  Z  15  3  DO  50  I  GOTO.XY  CLRSCR  1  28  "SUB  "TYPE  LOOP 
11  1  DO  CMDAT  [1)1- 

IF  65  Z  GOTO.XY  MODULES  "[  I  ]  "TYPE  Z  1  +  Z  THEN  LOOP 

5  2  GOTO.XY  ."  AVAILABLE  DEVICE  DRIVERS" 

60  2  GOTO.XY  ."  SELECTED  DRIVERS" 

5  23  GOTO.XY  ."  Press  ENTER  to  Select" 

65  23  GOTO.XY  ."  ESC  to  Exit"  ; 


DEVICE. MENU  \  MENU  SELECTIONS  DEVICE  MENU 

"  PROGRAM  CONFIGURATIONS"  MENU. TITLE  \  • 

MENU. STATUS  DEVICE. STAT 

MENU. BLOW. UP 

1  1  24  78  MENU. SHAPE 

0  11  MENU. COLOR 

15  MENU. PROMPT. COLOR 

MENU. STORE. DISK  • 

DEVICE. SELECTION  \  LOAD  MENU  ITEMS  FROM  PREVIOUS 

MENU. END  \  COLON  DEFINITION 
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:  GPIB.D.C  \  EDIT  GPIB  DEFINITIONS 

TEXT. EDIT  GPIB3.XXX  CR  \ 

LOAD  GPIB3.XXX  ; 


MOUSE. SUPPORT 
1  CMDAT  [  11  ]  - 

IF  0  CMDAT  [  11  ] 
ELSE  1  CMDAT  [  11 
THEN  : 


\  EDIT  ON/OFF  MOUSE  SUPPORT 
\  OPTION 
\ 


SAVE .  PROGRAM .  CONFIG 


\  SAVE  SELECTED  OPTIONS 


35  20  GOTO.Xy  ."  ENTER  DOS  ENTRY  FILENAME  "  \ 

"  C;\ASYST  "  FILE. PATH  \ 

SAVE. RESTORE. MENU  MENU. EXECUTE  \ 

FILE. PATH  -TRAILING  "  \"  "CAT  \ 

NAME. FILE  "CAT  FILE. NAME  \ 

1  CMDAT  [  12  ]  :-  \ 

FILE. OPEN  DATAFILE, XXX  \ 

1  SUBFILE  CMDAT  ARRAY>FILE  X 

FILE. NAME  41  >COMMENT  \ 

FILE. CLOSE  \ 

LOAD  GPIB. XXX  ;  \ 


ENTER  NEW  FILE  NAME 
FOR  EXECUTABLE  ASYST 
.COM  FILE 


ALTER  FIRST. LOAD  VALUE 
(SEE  GPIB. XXX) 

SAVE  SELECTIONS  IN 
THE  DATA  FILE 

RE- LOAD  GPIB. XXX 


CONFIG. STAT  \  MENU  DISPLAY 

14  FOREGROUND  \ 

1  CMDAT  (  11  ]  - 

IF  35  10  GOTO.XY  . "  NO  " 

ELSE  35  10  GOTO.XY  ."  YES"  THEN 

12  FOREGROUND  60  1  GOTO.XY  ."  DATE:  "  "DATE  "TYPE  9  FOREGROUND 
40  16  GOTO.XY  ."  USAF  PHOTONICS  CENTER" 

40  17  GOTO.XY  ."  GRIFFIS  AIR  FORCE  BASE" 

40  18  GOTO.XY  ."  ROME,  NEW  YORK" 

10  FOREGROUND  60  21  GOTO.XY  ."  by  Brian  DeVaul"  11  FOREGROUND  ; 


CONFIG. MENU  \  MAIN  SELECTIONS  MENU 

"  MENU  CONFIGURATIONS"  MENU. TITLE  \ 

MENU. STATUS  CONFIG. STAT 
MENU. BLOW. UP 
1  1  24  78  MENU. SHAPE 
0  11  MENU. COLOR 
MENU. STORE. DISK 
15  MENU. PROMPT. COLOR 

3  15  "  RETURN  TO  MAIN  MENU"  MENU.ITEM{  MENU. ESCAPE  ) 

6  15  "  DEVICE/PROGRAM  SELECTION"  MENU.ITEM(  DEVICE. MENU  ) 

8  15  "  GPIB  DEVICE  CONFIGURATION"  MENU.ITEM{  GPIB.D.C  } 

■  10  15  "  MOUSE  SUPPORT:"  MENU. ITEM {  MOUSE. SUPPORT  } 

13  15  "SAVE  NEW  SELECTIONS  &  REBOOT"  MENU.ITEM{  SAVE . PROGRAM . CONFIG  ) 
MENU. END 


•  • 


•  •  • 


i 


55 


Appendix  H  -  Program:  HP8116A.ZXX  (HP  -  Signal  Generator) 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

\  \ 

\  HP8116A  SIGNAL  GENERATOR  \ 

\  \ 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 


\  **************************  HP8116A  VARIABLES 


\ 


164  STRING  CPS  \ 

13  STRING  HILEV  \ 

13  STRING  LOLEV  \ 

13  STRING  AMPLT  \ 

13  STRING  OFFSET  \ 

3  STRING  UNITS  \ 

1  INTEGER  SCALAR  LOCK. OUT  \ 

33  STRING  LOCK. TEXT  \ 

1  LOCK. OUT 

TOKEN  DATA.SG  \ 

TOKEN  CPS I  \ 

\ 

\ 


Current  Parameter  Settings 

Hi  Level  setting 

Lo  Level  setting 

Amplitude 

Offset  Value 

Change  Units 

Keep  track  of  Local  Lock  out  condition 
Text  displayed  on  Lock  Out  status 

Define  blank  variable  SG  data 
Integer  Parameter  Status  array 
Tokens  are  used  to  make  use  of 
any  expanded  memory  available 


\  *******************  default  GENERATOR  PARAMETERS 


:  RELOAD. HP8116A  \  RELOAD  TOKEN  DATA 

\  ATTEMPT  TO  USE  EXPANDED  MEMORY 


? EXP.. MEM  IF  EXP.MEM>  DATA.SG  EXP.MEM>  CPSI  THEN 
INTEGER  DIM[  5  ,  22  }  UNNAMED . ARRAY  BECOMES>  DATA.SG 
INTEGER  DIM[  164  j  UNNAMED . ARRAY  BECOMES>  CPSI 


M" 

UNITS. DISPLAY. SG 

"( 

1  ] 

II 

tt 

CT" 

UNITS. DISPLAY. SG 

5  ] 

It 

T” 

UNITS. DISPLAY. SG 

9  1 

ft 

H" 

UNITS. DISPLAY. SG 

"( 

13 

] 

tl  .  ^ 

If 

M" 

UNITS. DIS PLAY. SG 

17 

] 

It  ,  ^ 

tt 

L" 

UNITS. DISPLAY. SG 

21 

] 

tt 

C" 

UNITS. DISPLAY. SG 

"[ 

25 

] 

If  .  ^ 

tt 

D" 

UNITS. DISPLAY. SG 

"[ 

29 

] 

tt 

A" 

UNITS. DISPLAY. SG 

"[ 

33 

] 

It 

FRQ" 

UNITS. DISPLAY. SG 

"( 

37 

1 

tt 

DTY" 

UNITS. DISPLAY. SG 

"( 

41 

] 

It 

WID" 

UNITS. DISPLAY. SG 

45 

] 

**  •  » 

tt 

AMP" 

UNITS. DISPLAY. SG 

"[ 

49 

1 

<D 
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OFS"  UNITS. DISPLAY. SG  "[  53  ] 
HIL"  UNITS. DISPLAY. SG  "[  57  ] 
LOL"  UNITS. DISPLAY. SG  "[  61  ] 
BUR"  UNITS. DISPLAY. SG  "[  65  ] 
RPT"  UNITS. DISPLAY. SG  "(  69  ] 
STA"  UNITS. DISPLAY. SG  "[  73  ] 
STP"  UNITS. DISPLAY. SG  "[  77  ] 
MRK"  UNITS. DISPLAY. SG  "[  81  ] 
SWT"  UNITS. DISPLAY. SG  "(  85  ] 


1  -  NORM  :  4  -  E.WID 

:  7  -  I. BUR 

tl 

UNITS. DISPLAY. SG 

"t 

2  ] 

tt 

2  -  TRIG  :  5  -  I.SWP 

:  8  -  E.BUR 

It 

UNITS. DISPLAY. SG 

"t 

3  ] 

n 

3  -  GATE  :  6  -  E.SWP 

n 

UNITS. DISPLAY. SG 

"[ 

4  ] 

tt 

1  -  FM  :  3  -  PWM  : 

0  -  OFF 

It 

UNITS. DISPLAY. SG 

6  1 

n 

n 

UNITS. DISPLAY. SG 

7  ] 

tt 

2  -  AM  :  4  -  VCO 

tt 

UNITS. DISPLAY. SG 

8  ] 

tt 

0  -  OFF 

tt 

UNITS. DISPLAY. SG 

"[ 

10 

] 

It  .  ^ 

1  -  POSITIVE 

It 

UNITS. DISPLAY. SG 

"t 

11 

1 

2  -  NEGATIVE 

tl 

UNITS. DISPLAY. SG 

"[ 

12 

1 

11  .  ^ 

tt 

UNITS. DISPLAY. SG 

"[ 

14 

] 

It  .  ^ 

0  -  OFF  :  1 

-  ON 

tt 

UNITS. DISPLAY. SG 

"[ 

15 

] 

tt  «  ^ 

tl 

UNITS. DISPLAY. SG 

"[ 

16 

] 

tl  .  ^ 

1  -  SINE  :  4  -  PULSE 

tl 

UNITS. DISPLAY. SG 

"[ 

18 

] 

It  .  ^ 

2  -  TRIANGLE  : 

tt 

UNITS. DI SPLAY. SG 

"[ 

19 

1 

n  .  ^ 

3  -  SQUARE  0  -  OFF 

It 

UNITS. DISPLAY. SG 

"[ 

20 

] 

tt  .  ^ 

tl 

UNITS. DISPLAY. SG 

22 

] 

It  . 

0  -  OFF  1 

-  ON 

It 

UNITS. DISPLAY. SG 

23 

] 

tt  ^ 

tt 

UNITS. DISPLAY. SG 

"1 

24 

] 

tt  _ 

tt 

UNITS. DI SPLAY. SG 

"[ 

26 

] 

tt  ^ 

,  0  -  OFF  :  1 

-  ON 

tt 

UNITS. DISPLAY. SG 

27 

1 

It  ^ 

tt 

UNITS. DISPLAY. SG 

28 

] 

tt  ^ 

tt 

UNITS. DI SPLAY. SG 

"[ 

30 

] 

tt  . 

0  -  NO  :  1 

-  YES 

tt 

UNITS. DISPLAY. SG 

"[ 

31 

] 

It  ^ 

tt 

UNITS. DISPLAY. SG 

"( 

32 

] 

tl 

tt 

UNITS. DISPLAY. SG 

"1 

34 

] 

It  ^ 

0  -  OFF  :  1 

-  ON 

tt 

UNITS. DISPLAY. SG 

"  r 

l 

35 

] 

It  ^ 

tt 

UNITS. DISPLAY. SG 

"[ 

36 

) 

It  ^ 

mz  -  milliHERTZ  :  kHz 

-  KILOHERTZ 

tt 

UNITS.  DI  SPLAY.  SG 

"( 

38 

] 

; 

tt 

UNITS. DISPLAY. SG 

"[ 

39 

1 

Hz  -  HERTZ  :  MHz 

-  MEGAHERTZ 

tt 

UNITS. DISPLAY. SG 

"[ 

40 

] 

tt 

UNITS. DI SPLAY. SG 

42 

] 

It  ^ 

ENTER  CYCLE  PERCENTAGE 

tt 

UNITS. DISPLAY. SG 

"[ 

43 

] 

It  .  ^ 

n 

UNITS. DISPLAY. SG 

"[ 

44 

] 

It  •  ^ 

MS  -  MILLISECONDS 

tt 

UNITS. DI SPLAY. SG 

46 

] 

It  ^ 

US  -  MICROSECONDS 

If 

UNITS. DISPLAY. SG 

"[ 

47 

1 

tl  ^ 

NS  -  NANOSECONDS 

ft 

UNITS. DISPLAY. SG 

"[ 

48 

] 

It  ^ 

n 

UNITS. DISPLAY. SG 

"[ 

50 

] 

*•  *  * 

V  -  VOLTS  :  MV  - 

MILLIVOLTS 

tt 

UNITS. DI SPLAY. SG 

"[ 

51 

1 

tt 

UNITS. DI SPLAY. SG 

52 

1 

tl .  ^ 

1 


"  lOFS"  GW  OFFSET  GR 

1  LOCK. OUT  -  IF  GEN  LISTENER  GO. TO. LOCAL  \  ENABLE/DISABLE  LOCAL  LOCK  OUT 
ELSE  GEN  LISTENER  LOCAL.  LOCKOUT  THEN 


\ 

\  SOME  PARAMETERS  NEED  A  SECOND  STRING,  THE  NEXT  TWO  SECTIONS  DISPLAY 
\  ALL  OF  THE  PARAMETERS  PERTAINING  TO  THE  SIGNAL  GENERATOR 
\ 

10  1  DO  DATA.SG  [1,1]  DATA.SG  [2,1]  GOTO.XY 
CPS  DATA.SG  [  3  ,  I  ]  4  "SUB  "TYPE  DATA.SG  [  1  ,  I  ]  5  +  Z 
Z  DATA.SG  [2,1]  GOTO.XY 

CPS  DATA.SG  [4,1]  DATA.SG  [5,1]  "SUB  "TYPE  LOOP 


19  10  DO  CPS  DATA.SG  [  3  ,  I  ]  1  "SUB  0  "NUMBER  X 

I9-6*5-Z;-X6<IFZX+2:-  ELSE  49  X  +  Z 
THEN  DATA.SG  [1,1]  DATA.SG  [2,1]  GOTO.XY  CLRSCR  1  10  "SUB 
"TYPE  DATA.SG  [1,1]  DATA.SG  [2,1]  GOTO.XY 
DATA. TEXT. SG  "[  Z  ]  "TYPE  SC 

LOOP 

\  ■  / 

\  THIS  SECTION  DISPLAYS  .MISC.  PARAMETERS  NOT  FOUND  IN  THE  CPS  ARRAY  / 

\  / 

65  12  GOTO.XY  HILEV  5  8  "SUB  "TYPE  \  HI  LEVEL 

65  13  GOTO.XY  LOLEV  5  8  "SUB  "TYPE  \  LOW  LEVEL 

20  10  GOTO.XY  AMPLT  5  8  "SUB  "TYPE  \  AMPLITUDE 

27  10  GOTO.XY  AMPLT  12  2  "SUB  "TYPE  \ 

20  11  GOTO.XY  OFFSET  5  8  "SUB  "TYPE  \  OFFSET 

C5S3  FOREGROUND  42  5  GOTO.XY  LOCK. TEXT  "TYPE 


\ 

\ 

\ 


****************************  XEXT  ***************************************  \ 


HP8116A. STATUS  C5S1  FOREGROUND 

DISPLAY. DATA  C5S2  FOREGROUND 

26  8  GOTO.XY  ."  CURRENT  PARAMETER  SETTINGS" 
0  8  GOTO.XY  ."  ********************" 


58  8 

GOTO.XY 

If 

******************** ' 

1 

1 

10 

GOTO.XY 

n 

Amplitude; " 

40 

10 

GOTO.XY 

1 

11 

GOTO.XY 

n 

Offset: " 

40 

11 

GOTO.XY 

1 

12 

GOTO.XY 

n 

Operating  Mode : " 

40 

12 

GOTO.XY 

1 

13 

GOTO.XY 

n 

Control  Mode : " 

40 

13 

GOTO.XY 

1 

14 

GOTO.XY 

It 

Trigger  Slope:" 

40 

14 

GOTO.XY 

1 

15 

GOTO.XY 

n 

Havers ine ( - 90 ) : " 

40 

15 

GOTO.XY 

1 

16 

GOTO.XY 

It 

Waveform; " 

40 

16 

GOTO.aY 

1 

17 

GOTO.XY 

It 

Frequency: " 

40 

17 

GOTO.XY 

."  Output  Disabled:" 

."  Autovernier:" 

High  Level" 

.  "  Low  Level : " 

."  Burst  Number:" 

."  Repetition  Rate:" 

."  Sweep  Start  Freq.:" 
."  Sweep  Stop  Freq.:" 


•  • 
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If 

UNITS. DIL 'LAY. SG 

"[ 

54 

] 

It  ^ 

V  -  VOLTS  : 

MV  -  MILLIVOLTS 

If 

UNITS. DISPLAY. SG 

"[ 

55 

] 

If 

It 

UNITS. DISPLAY. SG 

"t 

56 

] 

ft  ^ 

It 

UNITS. DISPLAY, SG 

"[ 

58 

1 

It  •  ^ 

ENTER  AMOUNT  OF  VOLTS 

ft 

UNITS. DISPLAY. SG 

"[ 

59 

] 

**  *  ■• 

n 

UNITS. DISPLAY. SG 

"[ 

60 

] 

^  •mm 

It 

UNITS. DISPLAY. SG 

"[ 

62 

1 

tl  .  ^ 

ENTER  AMOUNT  OF  VOLTS 

It 

UNITS. DISPLAY. SG 

63 

1 

M 

UNITS. DISPLAY. SG 

"[ 

64 

] 

M  ^ 

It 

UNITS. DISPLAY. SG 

"[ 

66 

] 

II  ^ 

ENTER  NUMBER  OF  BURSTS 

It 

UNITS. DISPLAY. SG 

"[ 

67 

1 

ft 

UNITS. DISPLAY. SG 

68 

] 

It  .  ^ 

It 

UNITS. DISPLAY. SG 

"[ 

70 

] 

It  .  ^ 

ENTER  REPETATIVE  RATE  OF  SWEEPS 

It 

UNITS. DISPLAY. SG 

71 

] 

It 

UNITS. DISPLAY. SG 

"[ 

72 

] 

II  ^ 

mz 

-  milliHERTZ 

kHz  -  KILOHERTZ 

It 

UNITS. DI SPLAY. SG 

"[ 

74 

] 

It  «  ^ 

tl 

UNITS. DISPLAY. SG 

"1 

75 

] 

It  .  ^ 

Hz 

-  HERTZ 

MHz  -  MEGAHERTZ 

It 

UNITS. DISPLAY. SG 

"t 

76 

1 

tl  .  ^ 

mz 

-  milliHERTZ 

kHz  -  KILOHERTZ 

It 

UNITS. DISPIAY.SG 

"t 

78 

] 

It  .  ^ 

It 

UNITS. DISPLAY. SG 

"t 

79 

1 

It  .  ^ 

Hz 

-  HERTZ 

MHz  -  MEGAHERTZ 

It 

UNITS. DISPLAY. SG 

"[ 

80 

] 

tl  •  ^ 

mz 

-  milliHERTZ 

kHz  -  KILOHERTZ 

It 

UNITS. DISPIAY.SG 

"[ 

82 

] 

It  •  ^ 

tl 

UNITS. DISPLAY. SG 

"t 

83 

] 

II  «  ^ 

Hz 

-  HERTZ 

MHz  -  MEGAHERTZ 

11 

UNITS. DISPLAY. SG 

"[ 

84 

] 

It  .  am 

It 

UNITS. DISPLAY. SG 

"[ 

86 

1 

tl  .  ^ 

S  -  SECONDS  :  MS  -  MILLISECONDS 

tl 

UNITS. DISPIAY.SG 

"( 

87 

) 

• 

II 

UNITS. DISPIAY.SG 

”[ 

88 

) 

It  •  a. 

tl 

tl 

DATA. TEXT. SG 

"( 

1  ] 

tt 

tt 

tt 

DATA.  TEXT.  SG 

"( 

29  ] 

tl  t  ^ 

tt 

NORM  " 

DATA. TEXT. SG 

"[ 

2  ] 

ft 

- 

tt 

tl 

DATA. TEXT. SG 

"[ 

30  ) 

It  .  ^ 

It 

TRIG 

DATA. TEXT. SG 

"( 

3  1 

ft 

- 

It 

OFF 

tl 

DATA.  TEXT.  SG 

”[ 

31  ] 

It  .  ^ 

tt 

GATE 

DATA. TEXT. SG 

"( 

4  ] 

It 

- 

tt 

ON 

N 

DATA.  TEXT.  SG 

"[ 

32  ] 

It  .  ^ 

It 

E.WID 

DATA. TEXT. SG 

"[ 

5  ] 

tt 

=. 

ft 

tt 

DATA. TEXT. SG 

"1 

33  ] 

II  .  ^ 

It 

I .  SWP 

DATA. TEXT. SG 

6  ] 

ft 

- 

tt 

tt 

DATA. TEXT. SG 

"1 

34  ] 

tt 

OFF 

DATA. TEXT. SG 

"1 

7  ] 

It 

- 

It 

II 

DATA. TEXT. SG 

"1 

35  ] 

tl 

FM 

DATA. TEXT. SG 

"[ 

8  ] 

ft 

= 

tl 

tt 

DATA. TEXT. SG 

"f 

36  ] 

tt  •  ^ 

tt 

AM 

DATA. TEXT. SG 

9  ] 

tl 

- 

tt 

OFF 

If 

DATA. TEXT. SG 

”[ 

37  ] 

**  •  » 

tt 

PWM 

DATA. TEXT. SG 

"1 

10 

1 

i 

tt 

- 

tt 

ON 

n 

DATA. TEXT. SG 

"[ 

38  ] 

it  .  _a 

It 

VCO 

DATA . TEXT . SG 

'■[ 

11 

] 

It 

- 

tl 

tt 

DATA. TEXT. SG 

"[ 

39  ] 

It  .  ^ 

tt 

tl 

DATA. TEXT. SG 

"[ 

12 

1 

tt 

- 

tt 

n 

DATA. TEXT. SG 

"1 

40  ) 

•1  •  B 

tl 

OFF 

DATA. TEXT. SG 

"[ 

13 

1 

tt 

- 

tt 

tt 

DATA. TEXT. SG 

"( 

41  ] 

II  .  ^ 

tt 

POSITIVE" 

DATA. TEXT. SG 

"( 

14 

] 

tl 

- 

II 

tt 

DATA. TEXT. SG 

"[ 

42  ] 

It  .  „ 

tl 

NEGATIVE" 

DATA. TEXT. SG 

"[ 

15 

] 

tt 

- 

tl 

OFF 

tt 

DATA.  TEXT.  SG 

"[ 

43  ] 

It 

tt 

tl 

DATA. TEXT. SG 

16 

] 

If 

mm 

If 

ON 

tt 

DATA. TEXT. SG 

"[ 

44  ] 

tt  •  * 

tt 

tl 

BATA. TEXT. SG 

17 

] 

tt 

- 

tt 

tt 

DATA.  TEXT.  SG 

"1 

45  ] 

It  .  ^ 

tt 

tt 

DATA. TEXT. SG 

"[ 

18 

] 

Tl 

- 

It 

It 

DATA. TEXT. SG 

"[ 

46  ] 

It  •  ^ 

tt 

tt 

DATA. TEXT. SG 

"( 

19 

] 

tl 

- 

tt 

tt 

DATA. TEXT. SG 

"[ 

47  ] 

tt  .  ^ 

tl 

SINE 

DATA.  TEXT.  SG 

"I 

20 

] 

If 

- 

If 

It 

DATA. TEXT. SG 

"[ 

48  ) 

It  .  ^ 

ft 

TRIANGLE" 

DATA. TEXT. SG 

21 

] 

It 

- 

tt 

NO 

ft 

DATA. TEXT. SG 

"1 

49  ] 

**  •  » 

0 


•  • 
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n 

SQUARE 

tl 

DATA.TEXT.se 

"( 

22 

] 

tl 

It 

YES 

tt 

DATA.TEXT.se. 

50 

] 

It 

- 

tt 

PULSE 

It 

DATA. TEXT. SG 

23 

] 

tl 

■- 

It 

tt 

DATA. TEXT. SG 

■'[ 

51 

1 

II 

- 

tt 

OFF 

It 

DATA. TEXT. SG 

24 

] 

It 

It 

It 

DATA. TEXT. SG 

52 

] 

II 

- 

n 

OFF 

tt 

DATA. TEXT. SG 

"[ 

25 

] 

tl 

It 

II 

DATA. TEXT. SG 

53 

] 

It 

- 

n 

ON 

tt 

DATA. TEXT. SG 

26 

] 

It 

*m 

tl 

tt 

DATA. TEXT. SG 

54 

1 

II 

- 

n 

It 

DATA. TEXT. SG 

"[ 

27 

] 

ft 

- 

It 

E.SWP 

It 

DATA. TEXT. SG 

"[ 

55 

] 

tl 

- 

It 

tt 

data. TEXT. SG 

"[ 

28 

] 

ft 

- 

tt 

I. BUR 

tt 

DATA. TEXT. SG 

56 

] 

It 

- 

It 

E.BUR 

II 

DATA. TEXT. SG 

57 

1 

n 

- 

DATA.SG  @[1,1 

ENTER[  20  ,  20  . 

] 

20  . 

65 

.  65 

.  65 

* 

\  LOAD  NUMERIC  DATA 

65  ,  65  .  65  ,  20  ,  20 

> 

20  ,  20  , 

20  . 

20 

.  65 

.  65 

> 

65  ,  65  .  65  ,  20  ,  20 

» 

17  ,  18  , 

19  . 

14 

,  15 

,  16 

» 

17  .  18  .  19  ,  12  .  13 

t 

14  ,  16  , 

15  , 

20 

.  20 

.  11 

> 

10  ,  12  .  13  ,  10  ,  11 

1 

106  ,  119 

.  130  , 

34  , 

46  , 

58  .  70  ,  94  .  82  ,  3  , 

} 

10  ,  13  , 

16  . 

22 

.  25 

.  19 

> 

28  ,  8  .  8  ,  6  ,  8 

I 

110  ,  124 

.  135  . 

0  , 

51  .  ( 

52 

.  74  .  98  .  87  ,  0  ,  0 

> 

0,0,0 

.  0  . 

0 

.  0 

.  0  . 

0 

.0,0,0 

f 

3,1.2 

■  0  , 

2 

.  3 

.  3  . 

3 

.2,0.0 

f 

0,0,0 

.  0  . 

0 

.  0 

.  0  . 

0 

.0.0.0] 

RELOAD. HP8116A  \  BLANK  ARRAYS  HAVE  TO  BE  RELOADED 

\  EVERY  TIME  THE  PROGRAM  IS  • 

\  ENTERED  FROM  DOS. 

\  ******************  DECLARE  SIGNAL  GENEElATOR  MENUS  *********************  \ 


MENU  HP8116A.MENU 
MENU  SGCP.MENU 

MENU  SGDP.MENU  • 

MENU  SGFILE 


\  ***************  RECEIVE  PARAMETER  DATA  FROM  DEVICE  *********************  \ 


:  DISPLAY. DATA 


\  DISPLAY  PARAMETER  SETTINGS 


GEN 

INIT  255  SPD 
"  CST"  GW 
CPS  GR 


\  CURRENT  DEVICE  -  SIGNAL  GENERATOR 
\  CLAER  GPIB  BUS  AND  DROP  ALL  PREVIOUS  ERROR  MESSAGES 
\  COMMAND  PARAMETER  SETTING  DATA  BE  SENT  TO  COMPUTER 
\  PUT  DATA  INTO  THE  STRING  CPS 


CPS  87  1  "SUB  "  S"  \  QUERY  FOR  ALL  OTHER  PARAMETERS  • 

IF  CPS  88  75  "SUB  CPS  89  75  "SUB  "  "  CPS  88  1  "SUB 

DATA.SG  [5,9)1-  DATA.SG  [5,9];-  THEN 
"  IHIL"  GW  HILEV  GR 

"  ILOL"  GW  LOLEV  GR 

"  lAMP"  GW  AMPLT  GR 

• 


•  • 
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1  18  GOTO.XY  . 
1  19  GOTO.XY  . 
1  20  GOTO.XY  . 
C5F  FOREGROUND 


Duty  Cycle:" 
Width:" 

Limit  (on/off):" 


40  18  GOTO.XY 
40  19  GOTO.XY 
40  20  GOTO.XY 


. "  Sweep  Marker  Freq . : " 

. "  Sweep  Time : " 

. "  Complement  (on/off) ; " 


0 


(D 


:  LOCK. OUT. SWITCH  LOCK. OUT  1  -  \  COLON  DEFINITION  TO  ENABLE/DISABLE 

\  LOCAL  LOCK  OUT  • 

IF  "  INSTRUMENT  FRONT  PANEL  LOCKED-OUT"  LOCK. TEXT 
0  LOCK. OUT  :-  GEN  LISTENER  LOCAL. LOCKOUT 
ELSE  "  FRONT  PANEL  OPERATIONAL  "  LOCK. TEXT 

1  LOCK. OUT  GEN  LISTENER  GO. TO. LOCAL 

THEN  :  • 


HP8116A.MENU 

MENU. STATUS  HP8116A. STATUS 
MENU. BLOW. UP 
1  1  24  79  MENU. SHAPE 

C5B  C5F  MENU. COLOR  • 

C5P  MENU. PROMPT. COLOR 

1  1  "  CHANGE  PARAMETERS"  MENU.ITEM{  SGCP.MENU  ) 

31"  EXECUTE  DESIGNED  PROGRAMS"  MENU.ITEM(  SGDP.MENU  ) 

51"  ENABLE  /  DISABLE  FRONT  PANEL"  MENU.ITEM{  LOCK . OUT . SWITCH  ) 

MENU. END 

•  • 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

\  \ 

\  Design  for  the  Signal  Generator  Change  Parameters  Menu  \ 

\  \ 

\  wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

\  • 

\  THE  NEXT  TWO  SECTIONS  ARE  SEPARATED  BY  THEIR  ALLOWABLE  TYPES  OF  INPUT. 

\  THE  FIRST  IS  FOR  PARAMETERS  NEEDING  A  USER  DEFINED  NUMERIC  ENTRY,  THE 
\  SECOND  ALLOWS  THE  USER  TO  SELECT  BETWEEN  THE  SIGNAL  GENERATOR'S  OFFERED 
\  CHOICES. 

^  EDIT. PARAMETER. SG. ENTER  CLR.DATA  C5IB  BACKGROUND  CLR. UNITS .DISPLAY  • 

P  4  *  3  -  P  1  FOREGROUND  48  2  GOTO.XY  ."  ENTER  A  NUMERIC  VALUE" 

X.C  Y.C  GOTO.XY  CLRSCR  1  5  "SUB  "TYPE  X.C  Y.C  GOTO.XY  "INPUT  COM. DATA  ":= 

4  1  DO  I  P  +  Z  40  I  GOTO.XY  UNITS. DIS PLAY. SG  "[  Z  )  "TYPE  LOOP 

X.C  7  +  X.C  X.C  Y.C  GOTO.XY  CLRSCR  1  DATA.L  "SUB  "TYPE 

X.C  Y.C  GOTO.XY  "INPUT  UNITS  GEN  LISTENER  ME  TALKER  C5B  BACKGROUND 

UNITS. DISPLAY. SG  "[  P  ]  COM. DATA  "CAT  UNITS  "CAT  COM  COM  T  • 

GEN  255  SPD  X.C  7  -  X.C  CLR.DATA  CLR. UNITS . DISPLAY  C5F  FOREGROUND  ; 


:  EDIT. PARAMETER. SG. CHOICE  C5IF  FOREGROUND 

P  4  *  3  -  P  CLR.DATA  C5IB  BACKGROUND  CLR. UNITS . DISPLAY 

4  1  DO  I  P  +  Z  40  I  GOTO.XY  UNITS .DISPLAY. SG  "[  Z  )  "TYPE  LOOP 
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•  •  • 


•  • 


•  •  • 


•  • 


X.C  Y.C  GOTO.XY  CLRSCR  1  DATA.L  "SUB  "TYPE 

X.C  Y.C  GOTO.XY  "INPUT  COM. DATA  GEN  LISTENER  ME  TALKER  C5B  BACKGROUND 

UNITS. DISPLAY. SG  "[  P  ]  COM. DATA  "CAT  UNITS  "CAT  COM  COM  T 

GEN  255  SPD  CLR.DATA  CLR. UNITS. DISPLAY  "  "  UNITS  C5F  FOREGROUND  ; 


\ 

\  EACH  PARAMETER  HAS  IT'S  OWN  COLON  DEFINITION  FOR  THE  MENU. ITEM  SELECTION 
\  AND  USES  THE  DEFINITION  TO  SET  X,Y  COORDINATES.  DATA  LENGTH,  PLACE  IN 
\  DATA  ARRAY  AND  WHICH  PARAMETER  CHANGING  COLON  DEFINITION  (ENTER  OR  CHOICE) . 


:  OPMODE 

20  X.C 

12  Y.C 

:  CTM 

20  X.C 

13  Y.C 

:  TS 

20  X.C 

14  Y.C 

:  HAV 

20  X.C 

15  Y.C 
:  WAVEFORM 

20  X.C 

16  Y.C 
:  LIMIT 

20  X.C 
20  Y.C 
:  COMPL 

65  X.C 
20  Y.C 
:  DISABLE 
65  X.C 

10  Y.C 
:  AUTO 

65  X.C 

11  Y.C 
:  FREQ 

20  X.C 

17  Y.C 
:  DTY. CYCLE 

20  X.C 

18  Y.C 
:  WIDTH 

20  X.C 

19  Y.C 
:  AMPL 


******************************** 

12  COLUMN  IP:- 

1 

DATA.L 

EDIT. PARAMETER. SG 

A  /%  / 

12 

COLUMN 

2  P  .- 

1 

DATA.L 

EDIT. PARAMETER. SG 

A  A  # 

12 

COLUMN 

3  P 

1 

DATA.L 

EDIT. PARAMETER. SG 

12 

COLUMN 

4  P 

1 

DATA.L 

EDIT. PARAMETER. SG 

■k*i 

***! 

***************  »*** 

12 

COLUMN 

5  P 

1 

DATA.L 

‘EDIT. PARAMETER. SG 

OPERATING  MODE 


\  CONTROL  MODE 


\  TRIGGER  SLOPE 


\  HAVERS INE 


\ 

12  COLUMN  6  P 

1  DATA.L  EDIT. PARAMETER. SG. CHOICE  ; 

*******************  „  *************  \  COMPLIMENT 

12  COLUMN  7  P 

1  DATA.L  EDIT. PARAMETER. SG. CHOICE  ; 

\  .  DISABLE  OUTPUT 


**? 

12 

*********** 

COLUMII 

t****************** 

8  P 

1 

DATA.L 

EDIT. PARAMETER. SG 

**'j 

CXX**V^XXXXX7 

t****************** 

12 

COLUMN 

9  P 

1 

**s 

DATA.L 

**********1^ 

EDIT. PARAMETER. SG 

t****************** 

AUTOVERNIER 


\ 

\ 

12  COLUMN  9  P 

1  DATA.L  EDIT. PARAMETER. SG. CHOI ( 

12  COLUMN  10  P 

3  DATA.L  EDIT. PARAMETER. SG. ENTER  ; 

\  ********************************  \  DUTY  CYCLE 

12  COLUMN  11  P  "  %"  UNITS 

4  DA'..A.L  EDIT .  PARAMETER.  SG .  CHOICE  ; 

\  *******•'•************************  \  SIGNAL  WIDTH 

12  COLUMN  12  P 

2  DATA.L  EDIT. PARAMETER. SG. ENTER  ; 

\  ********************************  \  AMPLITUDE 


•  • 


•  • 
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Y.C 


X. 

Y. 


20  X.C 

10  Y.C 
OFST 

20  X.C 

11  Y.C 
HILL 

65  X.C 

12 
LOLL 

65 

13 

BURST# 

65  X.C 

14  Y.C 
REP. RAT 

65  X.C 

15  Y.C 
SWPST.FREQ 

65  X.C 

16  Y.C 

SWPSTOP.FREQ 
65  X.C 

17  Y.C 
SWPMRK.FREQ 

65  X.C 

18  Y.C 
SWPTIME 

65  X.C 

19  Y.C 


\ 


\ 


12  COLUMN 
2  DATA.L 

12  COLUMN 
2  DATA.L 

lr*********ilh 

12  COLUMN  :• 
4  DATA.L  :> 

fc**********i 

12  COLUMN 
4  DATA.L 

12  COLUMN 
4  DATA.L 

12  COLUMN  := 
2  DATA.L  :• 


13  P 

EDIT. PARAMETER. SG. ENTER  ; 

\  OFFSET 

14  P 

EDIT. PARAMETER. SG. ENTER  ; 

\  HIGH  LEVEL 

15  P  "  V"  UNITS 

EDIT. PARAMETER. SG. CHOICE  ; 

\  LOW  LEVEL 

16  P  "  V"  UNITS 

EDIT. PARAMETER. SG. CHOICE  ; 

\  BURST  NUMBER 

17  P  "  #"  UNITS 

EDIT. PARAMETER. SG. CHOICE  ; 

\  REPETITION  RATE 

18  P 

EDIT. PARAMETER. SG. ENTER  ; 


\  ********************************  \  SWEEP  START  FREQUENCY 


\ 


\ 


12 

COLUMN 

:- 

19  P  :- 

3 

DATA.L 

biJLi 

*  SB 

kicki 

EDIT. PARAMETER. SG 

L  ■  Ai  I jL  ill » 1 1  ill « 1 » «!■  1 1 1  ^  ^  A  A  ^  >4 . . JU ^  A 

12 

^  w\  K 

COLUMN 

r  A  ^  A  A  A  A  A  A  A  A 

20  P  :- 

3 

DATA.L 

EDIT. PARAMETER. SG 

ti  iXi  ii«  il-  -Ar  -Jt-  iiL  lAi  »li  iiL  itr  1 L  lA  lA  lit-  -Ar  it 

A  A  « 

12 

o 

COLUMN 

»  A  ^aa^^AAAAAAAaAaA 

21  P  :- 

3 

DATA.L 

:- 

EDIT. PARAMETER. SG 

******************************** 

12 

COLUMN 

22  P  :- 

2 

DATA.L 

EDIT. PARAMETER. SG 

\  SWEEP  STOP  FREQUENCY 


SWEEP  MARKER  FREQUENCY 


SWEEP  TIME 


\  ****************  SIGNAL  GENERATOR  PARAMETERS  MENU  *********************  / 


:  SGCP.STAT  C5S4  FOREGROUND  \  CHANGE  PARAMETERS  MENU  DISPLAY 

1  1  GOTO.XY  CHANGE  PARAMETERS" 

1  3  GOTO.XY  ."  EXECUTE  DESIGNED  PROGRAMS" 

1  5  GOTO.XY  ENABLE  /  DISABLE  FRONT  PANEL" 

26  8  GOTO.XY  ."  CURRENT  PARAMETER  SETTINGS" 

0  8  GOTO.XY  ********************" 

58  8  GOTO.XY  ."  ********************" 

13  FOREGROUND  DISPLAY. DATA  11  FOREGROUND  "  "  UNITS  ; 

SGCP.MENU  \  CHANGE  PARAMETERS  MENU 

.MENU. STATUS  SGCP.STAT 

I  1  24  79  MENU. SHAPE 
C5B  C5F  MENU. COLOR 
C5P  MENU. PROMPT. COLOR 

10  1  "  Amplitude:"  MENU.ITEM{  AMPL  ) 

II  1  "  Offset:"  MENU.1TEM{  OFST  ) 

12  1  "  Operating  Mode:"  MENU.ITEM{  OPMODE  } 


•  • 
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13  1  "  Control  Mode:"  MENU.ITEM{  CTM  } 

14  1  "  Trigger  Slope:"  ME^JU.ITEM{  TS  } 

15  1  "  Haversine(-90):"  J1ENU.ITEM{  HAV  ) 

16  1  "  Waveform:"  MENU.ITEMl  WAVEFORM  ) 

17  1  "  Frequency:"  MENU. ITEM {  FREQ  ) 

18  1  "  Duty  Cycle:"  MENU.ITEM{  DTY. CYCLE  ) 

19  1  "  Width:"  MENU.ITEM{  WIDTH  ) 

20  1  "  Limit  (on/off):"  MENU.ITEMl  LIMIT  ) 

10  40  "  Output  Disabled:"  MENU.;TEM{  DISABLE  ) 

11  40  "  Autovemier:"  MENU. ITEM  AUTO  ) 

12  40  "  High  Level"  MENU.ITEMl  iILL  } 

13  40  "  Low  Level:"  MENU.ITEMl  LOLL  ) 

14  40  "  Burst  Number:"  MENU.IfJll  BURST#  } 

15  40  "  Repetition  Rate:"  MENU.ITEMl  REP. RAT  ) 

16  40  "  Sweep  Start  Freq.:"  MENU.ITEMl  SWPST.FREQ  ) 

17  40  "  Sweep  Stop  Freq.;"  MENU.ITEMl  SWPSTOP.FREQ  ) 

18  40  "  .<?weep  Marker  Freq.:"  MENU.ITEMl  SWPMRK.FREQ  } 

19  40  "  Sweep  Time;,"  MENU.ITEMl  SWPTIME  ) 

20  40  "  Complement  (on/off);"  MENU.ITEMl  COMPL  ) 

MENU. END 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
\  \ 

\  Execute  Specific  Parameter  Changes  \ 

\  \ 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 


:  SCS 

SAVE . RESTORE . MENU  MENU . EXECUTE 
FILE. PATH  "  \-’  "CAT  NAME. FILE  "CAT 
FILE. NAME  ":- 
CPS  CPS I  ">ARRAY 
FILE. TEMPLATE 

INTEGER  dim;  164  ]  SUBFILE 

END 

FILE. NAME  DEFER>  FILE. CREATE 
FILE. NAME  DEFER>  FILE. OPEN 
1  SUBFILE  CPSI  ARRAY>FILE 
FILE. CLOSE  MENU. ESCAPE  ; 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


SAVE  CURRENT  SETTINGS 
CHOOSE  FILE  NAME 

CONVERT  STRING  TO  INTEGER  FORMAT 
CREATE  FILE 

INPUT  ARRAY  DATA  INTO  FILE 


;  RSS 

SAVE. RESTORE. MENU  MENU. EXECUTE 
FILE. PATH  "  \"  "CAT  NAME. FILE  "CAT 
FILE. NAME  ":- 

FILE. NAME  DEFER>  FILE. OPEN 
1  SUBFILE  CPSI  FILE>ARRAY 
FILE. CLOSE 


\ 

\ 

\ 

\ 

\ 

\ 

\ 


RESTORE  SAVED  SETTINGS 
CHOOSE  FILE  NAME 


DUMP  FILE  DATA  INTO  INTEGER  ARRAY 
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CPSI  CPS  ARRAY>" 
GEN 

CPS  2  164  "SUB  GW 
255  SPD  5  CUT 
MENU. ESCAPE  ; 


\  CONVERT  INTEGER  ARRAY  INTO  STRING 

\ 

\  SEND  STRING  TO  SIGNAL  GENERATOR 
\  TO  RESTORE  SAVED  PARAMETERS 
\ 


SGDP.MENU  \  SAVE  &  RESTORE  PARAMETERS  MENU 

2  50  6  76  MENU. SHAPE 
CSIB  CSIF  MENU. COLOR 
CSIP  MENU. PROMPT. COLOR 

1  2  "  GO  TO  THE  O.K.  PROMPT"  MENU.ITEM{  OKP  ) 

2  2  "  SAVE  CURRENT  SETTINGS"  MENU.ITEM{  SCS  ) 

3  2  "  READ  SAVED  SETTINGS"  MENU.ITEM{  RSS  ) 

MENU.  END 


Appendix  I  •  Prograa:  ZTHACO.ZZX  (ITHACO  -  Lock-in  Amplifier) 

isaassBssBaBssBss^^sssaBsssraBBscarBaBBsas&sB^aBKBssBBBass^BBBS3BsassssB3=ssr^=s==ssB= 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  \ 


\  \ 

\  ITHACO  385EO  DUAL  CHANNEL  INTEGRATOR/COUPLER  with  \ 

\  an  ITHACO  397EO  LOCK-IN  AMPLIFIER  \ 

\  \ 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  \ 


\ 


Defining  Variables 


/ 


INTEGER  SCALAR  NT  11  NT  \  NUMBER  OF  TIMES  EXECUTED 

INTEGER  DIM[  6  ]  ARRAY  ST  \ 

INTEGER  DIM[  100  ]  ARRAY  GPSI.385  \  INTEGER  PARAMETER  STRING 


REAL  DIM[ 

10 

]  ARRAY  AN  AN 

[]RAMP 

\  SIGNAL  A 

REAL 

DIM[ 

10 

]  ARRAY  BN  BN 

[]RAMP 

\  SIGNAL  B 

DIM[ 

10  . 
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]  STRING. ARRAY 

RAW.  DATA. 

385  6 

STRING 

FS.P 

DIM[ 

10  . 

9  ] 

STRING. ARRAY 

A 

6 

STRING 

BW.P 

DIM[ 

10  . 

9  ] 

STRING. ARRAY 

B 

6 

STRING 

DM.P 

DIM[ 

10  . 

9  1 

STRING. ARRAY 

Afi 

6 

STRING 

EX.P 

DIM[ 

10  . 

6  ] 

STRING. ARRAY 

PHASE 

6 

STRING 

GC.P 

DIM( 

10  . 

9  ] 

STRING. ARRAY 

A+B 

6 

STRING 

IL.P 

dim[ 

10  , 

9  ] 

STRING. ARRAY 

A-B 

6 

STRING 

DF.P 

DIM( 

10  , 

12 

]  STRING. ARRAY 

A/B 

6 

STRING 

OM.P 

10  STRING 

D1 

10  STRING 

D4 

6 

STRING  AD.P 

10  STRING 

D2 

10  STRING 

D5 

6 

STRING 

SR.P 

10  STRING 

D3 

10  STRING 

D6 

6 

STRING 

TRIG.P 

100  STRING 

CPS 

.385 

6 

STRING 

BASE.P 

TOKEN  DATA. 385 


:  RELOAD. ITHACO 

7EXP.MEM  IF  EXP.MEM>  DATA. 385  THEN 

INTEGER  DIM[  5  ,  22  ]  UNNAMED . ARRAY  BECOMES>  DATA. 385 

DATA. 385  []RAMP 


ft 


n 


A" 

B" 

I" 

R" 

T” 

0" 

E" 

G" 


UNITS. DISPLAY. 385 

"( 

1  ] 

1 

UNITS. DISPLAY. 385 

"[ 

5  1 

1 

UNITS. DISPLAY. 385 

"[ 

9  1 

UNITS. DISPLAY. 385 

"[ 

13 

] 

UNITS. DISPLAY. 385 

"( 

17 

1 

UNITS. DISPLAY. 385 

"1 

21 

1 

UNITS. DISPLAY. 385 

"( 

25 

1 

UNITS. DISPLAY. 385 

"[ 

29 

] 

"  0-1  Volt  Full  Scale  Sensitivity 

ft 


UNITS. DISPLAY. 385  "(  2  ] 
UNITS. DISPLAY. 385  "[  3  ] 
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It 

1-10  Volts  Full  Scale  Sensitivity 

It 

UNITS. DISPLAY. 385 

"[ 

4  1 

It 

It 

0-2  Hertz 

It 

UNITS. DISPLAY. 385 

"[ 

6  ] 

It 

It 

ft 

UNITS. DISPLAY. 385 

"[ 

7  ] 

tt 

:- 

It 

1-20  Hertz 

It 

UNITS. DISPLAY. 385 

"( 

8  ) 

It 

;- 

It 

Enter  the  Integration  Length 

ft 

UNITS. DISPLAY. 385 

"t 

10 

] 

tt 

- 

It 

It 

UNITS. DISPLAY. 385 

"[ 

11 

] 

It 

— 

It 

in  1/60  second  increments 

ft 

UNITS. DISPLAY. 385 

12 

] 

11 

- 

It 

Enter  the  Autorange  Delay 

It 

UNITS. DISPLAY. 385 

"[ 

14 

] 

tl 

wm 

It 

It 

UNITS. DISPLAY. 385 

"[ 

15 

] 

It 

wm 

It 

in  1/60  second  increments 

It 

UNITS. DISPLAY. 335 

16 

1 

It 

- 

It 

T  -  TTL  Triggering  Input 

It 

UNITS. DISPLAY. 385 

"[ 

18 

] 

II 

- 

It 

B  -  GPIB  Triggering 

It 

UNITS. DISPLAY. 385 

"[ 

19 

] 

tt 

It 

I 

-  INTERNAL  :  E  -  EXTERNAL(T 

Sc  B) 

It 

UNITS. DISPLAY. 385 

"[ 

20 

] 

tt 

— 

It 

It 

UNITS. DISPLAY. 385 

”[ 

22 

] 

tl 

- 

It 

C  -  Continuous  :  B  -  Burst 

tt 

UNITS. DISPLAY. 385 

"1 

23 

1 

It 

- 

It 

tt 

UNITS. DISPLAY. 385 

"[ 

24 

] 

tt 

- 

It 

0  -  No  Expansion 

It 

UNITS. DISPLAY. 385 

"[ 

26 

] 

It 

St 

It 

tt 

UNITS. DISPLAY. 385 

"[ 

27 

] 

It 

aa 

It 

1  -  Expansion  x  10 

It 

UNITS. DISPLAY. 385 

"[ 

28 

] 

It 

- 

It 

0 

—  Off  :  3  —  1  mV  :  6  — 

1  V 

tt 

UNITS. DISPLAY. 385 

30 

1 

tl 

- 

It 

1 

-  10  uV  ;  4  -  10  mV  ; 

11 

UNITS. DISPLAY. 385 

"1 

31 

] 

tt 

- 

II 

2 

-  100  uV  :  5  -  100  mV  :  7  - 

Off 

tt 

UNITS. DISPLAY. 385 

"[ 

32 

1 

tl 

am 

n 

"  DATA. TEXT. 385  "[ 

1  1 

It 

•• 

n 

"  DATA. TEXT. 385  "[ 

2  1 

It 

- 

It 

"  DATA. TEXT. 385  "( 

3  ] 

tt 

- 

n 

"  DATA. TEXT. 385  "[ 

4  1 

tt 

- 

It 

"  DATA. TEXT. 385  "[ 

5  ] 

tt 

- 

It 

"  DATA. TEXT. 385  "[ 

6  1 

tt 

- 

11 

"  DATA. TEXT. 385  " [ 

7  1 

tl 

- 

ft 

"  DATA. TEXT. 385  "[ 

8  1 

It 

- 

It 

"  da:  A. TEXT. 385  "( 

9  ] 

It 

- 

If 

"  DATA. TEXT. 385  "( 

10  ] 

ft 

- 

It 

"  DATA. TEXT. 385  "( 

11  ) 

tt 

- 

ti 

"  DATA. TEXT. 385  "[ 

12  ] 

tt 

- 

If 

"  DATA. TEXT. 385  "( 

13  ] 

It 

- 

n 

"  DATA. TEXT. 385  "[ 

14  ] 

II 

- 

II 

"  DATA. TEXT. 385  "( 

15  ) 

tt 

- 

It 

"  DATA. TEXT. 385  "( 

16  1 

tt 

- 

It 

"  DATA. TEXT. 385  "( 

17  ] 

tt 

- 

II 

"  DATA. TEXT. 385  "( 

18  ] 

tt 

- 

ti 

"  DATA. TEXT. 38 j  "[ 

19  ] 

tt 

- 

It 

"  DATA. TEXT. 385  "f 

20  ] 

It 

- 

n 

"  DATA. TEXT. 385  " [ 

21  ] 

It 

- 

ft 

"  DATA. TEXT. 385  "[ 

22  ] 

tf 

- 

It 

"  DATA. TEXT. 385  "[ 

23  ] 

n 

- 

It 

"  DATA. TEXT. 385  "[ 

24  ] 

n 

- 

n 

"  DATA. TEXT. 385  "[ 

25  ] 

tt 

- 

It 

"  DATA. TEXT. 3£5  "[ 

26  ] 

tt 

- 
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•  •  • 


•  • 


"  DATA. TEXT. 385  "(  27  ] 
"  DATA. TEXT. 385  "[  28  ] 


"A  " 

tt  B  « 

"  VS  &  PA" 

"  A+B  " 

"  A-B 
"  A/B 


DATA. FORMAT 
DATA. FORMAT 
DATA. FORMAT 
DATA. FORMAT 
DATA. FORMAT 
DATA. FORMAT 


"[  1  ] 
"[  2  ] 
"t  3  ] 
"[  4  ] 
"(  5  ] 
"[  6  ] 


RELOAD. ITHACO 

\ 


Defining  Menus 


MENU  ITHACO. MENU 
MENU  ITHACO. MENU2 
MENU  ITHACO. MENUS 
MENU  ITHACO. MENU4 
MENU  ITHACO. MENUS 
MENU  ITHACO. MENUS 
MFJJU  DF. MENU. 385 


RECEIVE  PARAMETER  DATA  FROM  DEVICE  *irk*****************  / 


:  RECEIVE. DATA. 385 

ITH385  \  CURRENT  DEVICE  -  ITHACO  385EO 

50  MSEC. DELAY 
255  SPD 

"  ?",GW  \  SEND  PARAMETER  SETTING  DATA  TO  COMPUTER 

CPS. 385  GR  \  PUT  DATA  INTO  THE  PARAMETER  STRING 

•  DISPLAY. DATA. 385 


•  • 


RECEIVE. DATA. 385 


\  ****************************  DISPLAY  DATA 
CPS. 385  2  1  "SUB  FS.P 

FS.P  "  0"  "-  IF  20  14  GOTO.XY  ."  1"  THEN 

FS.P  "  1"  "-  IF  20  14  GOTO.XY  ."  10"  THEN 

23  14  GOTO.XY  ."  Volt  Full  Scale" 

CPS. 385  5  1  "SUB  BW.P  \  BANDWIDTH 

BW.P  "  0"  "-  IF  20  15  GOTO. -•  2"  THEN  \  xlOO 

BW.P  "  1"  "-  IF  20  15  GOTO..  20"  THEN  \ 

27  15  GOTO.XY  ."  Hertz" 


\  FULL  SCALE 
\  SENSITIVITY 
\ 


CPS. 385  18  4  "SUB  0  "NUMBER 


\  INTEGRATION  LENGTH 


20  16  GOTO.XY  .  \ 

27  16  GOTO.XY  . "  1/60  SEC"  \ 


CPS. 385  30  3  "SUB  0  "NUMBER 
20  17  GOTO.XY  . 

27  17  GOTO.XY  ."  1/60  SEC" 


\  AUTORANGE  DELAY 
\ 

\ 


CPS. 385  27  1  "SUB  OM.P 

OM.P  "  C"  "-  IF  55  15  GOTO.XY  ."  Continuous"  THEN 
OM.P  "  B"  "-  IF  55  15  GOTO.XY  ."  Burst"  THEN 


\  OUTPUT  MODE 
\ 

\ 


CPS. 385  39  1  "SUB  TRIG.P 
TRIG.P  "  I"  "-  IF  55  14  GOTO.XY 

TRIG.P  "  T"  "-  IF  55  14  GOTO.XY 

TRIG.P  "  B"  IF  55  14  GOTO.XY 

TRIG.P  "  E"  IF  55  14  GOTO.XY 


\ 

Trigger  Internally" 
TTL  Trig  Input  " 

GPIB  Triggering" 
External  TT  +  TB  Mode" 


TRIGGER  MODE 
THEN  \ 

THEN  \ 

THEN  \ 

THEN  \ 


CPS. 385  42  1  "S 
BASE.P  "  0"  " 
BASE.P  "  1"  " 
BASE.P  "  2"  " 
BASE.P  "  3"  " 
BASE.P  4"  " 


I  BASE.P 

IF  46  20  GOTO.XY 
IF  46  20  GOTO.XY 
IF  46  21  GOTO.XY 
IF  61  20  GOTO.XY 
IF  61  21  GOTO.XY 


\ 

It  It 

."  Baseline  Corr." 
. "  Error  " 

. "  Read  to  Host  " 
. "  Send  from  Host" 


BASELINE  CORRECTION 
THEN  \ 

THEN  \ 

THEN  \ 

THEN  \ 

THEN  \ 


CPS. 385  12  1  "SUB  EX.P 

EX.P  "  0"  "-  IF  55  16  GOTO.XY  ." 

EX.P  "  1"  "-  IF  55  16  GOTO.XY  ." 

CPS. 385  15  1  "SUB  GC.P 


GC.P 

It 

1" 

IF 

55 

17 

GOTO.XY 

It 

GC.P 

n 

2" 

tf  ^ 

IF 

55 

17 

GOTO.XY 

It 

GC.P 

11 

3" 

IF 

55 

17 

GOTO.XY 

II 

GC.P 

If 

4" 

IF 

55 

17 

GOTO.XY 

tl 

GC.P 

ft 

5" 

IF 

55 

17 

GOTO.XY 

II 

GC.P 

It 

6" 

II  gU 

IF 

55 

17 

GOTO.XY 

tl 

GC.P 

tt 

7" 

tt  ^ 

IF 

55 

17 

GOTO.XY 

tl 

GC.P 

ft 

0" 

11^ 

IF 

55 

17 

GOTO.XY 

It 

\  EXPANSION 

\ 

\ 

\  GAIN  CONTROL 
10  u  Volts  "  THEN  \ 

100  u  Volts"  THEN  \ 

1  m  Volts  "  THEN  \ 

10  m  Volts  "  THEN  \ 

100  m  Volts"  THEN  \ 

1  Volts  "  THEN  \ 

OFF  "  THEN  \ 

OFF  "  THEN  \ 


No  Expansion"  THEN 
Expansion  xlO"  THEN 


CLEAR. DISPLAY. DF 

CLRSCR  "TYPE  CLRSCR  1  5  "SUB  "TYPE  ; 

DISPLAY. DF  \  DISPLAY  DATA  FORMAT 

CPS. 385  8  2  "SUB  0  "NUMBER  X 
X  Y 

X  0  O  IF 

X  32  >-  IF  DATA, FORMAT  "  [  6  ]  D6  " X  32  -  X  ELSE  "  "  D6  THEN 

X  16  >-  IF  DATA. FORMAT  " [  5  ]  D5  X  16  -  X  ELSE  "  "  D5  THEN 

X  8  >-  IF  DATA. FORMAT  "[  4  ]  D4  X  8  -  X  ELSE  "  "  D4  THEN 
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X 

X 

X 


4  >-  IF  DATA. FORMAT  "[  3 
2  >-  IF  DATA. FORMAT  "[  2 
1  >-  IF  DATA. FORMAT  "[  1 
"  Data  Format:  "  Dl  "CAT 


]  D3  ":-  X 

4  - 

X  :-  ELSE  " 

"  D3  ":-  THEN 

]  D2  ":-  X 

2  - 

X  :-  ELSE  " 

"  D2  ":-  THEN 

]  Dl  ":-  X 

1  - 

X  :-  ELSE  " 

"  Dl  ":-  THEN 

D2  "CAT  D3 

"CAT 

D4  "CAT  D5  "CAT  D6  "CAT 

"TYPE  Y  X 


THEN 


Ar) 

• 


\  ***********************■***'*'***  TEXT 


/ 


:  ITHACO.STATUSl 

DISPLAY. DATA. 385  1  19  GOTO.XY  CLEAR. DISPLAY. DF 
1  19  GOTO.XY  DISPLAY. DF 

26  12  GOTO.XY  ."  CURRENT  PARAMETER  SETTINGS" 

1  14  GOTO.XY  ."  Sensitivity:" 

1  15  GOTO.XY  ."  Bandwidth:" 

1  16  GOTO.XY  ."  Integration  Size:" 

1  17  GOTO.XY  ."  Autorange  Delay:" 

40  14  GOTO.XY  ."  Trigger  Mode:" 

40  15  GOTO.XY  ."  Output  Mode:" 

.40  16  GOTO.XY  ."  Expansion:" 

40  17  GOTO.XY  ."  Gain  Control:" 


O.K 

MENU. ESCAPE  MENU. ESCAPE 


•  • 


ITHACO.MENU 

MENU. STATUS  ITHACO.STATUSl  0 

"  ITHACO  385EO  MAIN  MENU"  MENU. TITLE 

MENU. BLOW. UP 

1  1  25  78  MENU. SHAPE 

0  3  MENU. COLOR 

15  MENU. PROMPT. COLOR 

1  1  "  CHANGE  PARAMETERS"  MENU.ITEM{  ITHACO. MENU2  )  • 

31"  RECEIVE  AND  SHOW  DATA"  MENU.ITEM{  ITHACO. MENU3  } 

51"  READ/SAVE  PARAMETER  SETTINGS"  MENU.ITEM{  ITHACO . MEliU4  } 

71"  EXIT  TO  'OK'  PROMPT"  MENU.ITEM{  O.K  } 

91"  RETURN  TO  MAIN  MENU"  MENU.ITEM{  MENU. ESCAPE  ) 

MENU. END 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
\  \ 

\  CHANGE  PARAMETER  SETTINGS  \ 

\  \ 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
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EDIT. PARAMETER. 385  P  4  *  3  -  P 

CLR.DATA  12  BACKGROUND  CLR. UNITS .DISPLAY 

7  4  DO  I  P  +  3  -  Z  40  I  GOTO.XY  UNITS. DISPLAY. 385  "[  Z  ]  "TYPE  LOOP 

X.C  Y.C  GOTO.XY  CLRSCR  i  DATA.L  "SUB  "TYPE 

X.C  Y.C  GOTO.XY  "INPUT  COM. DATA 

ITH385  LISTENER  ME  TALKER  0  BACKGROUND 

UNITS. DISPLAY. 385  "[  P  ]  COM. DATA  "CAT  COM  COM  T 

CLR.DATA  CLR. UNITS. DISPLAY  ; 


FS  \  CHANGE  FULL  SCALE  SENSITIVITY 

20  X.C  18  COLUMN  1  P  .- 

14  Y.C  1  DATA.L  EDIT. PARAMETER. 385  ; 


BW  \  CHANGE  BANDWIDTH 

20  X.C  :=  18  COLUMN  2  P 

15  Y.C  1  DATA.L  EDIT. PARAMETER. 385  ; 


IL  \  CHANGE  INTEGRATION  LENGTH 

20  X.C  18  COLUMN  3  P 

16  Y.C  4  DATA.L  EDIT. PARAMETER. 385  ; 


AD  \  CHANGE  AUTORANGE  DELAY 

20  X.C  18  COLUMN  4  P 

17  Y.C  4  DATA.L  EDIT. PARAMETER. 385  ; 


TM  \  CHANGE  TRIGGER  MODE 

55  X.C  24  COLUMN  5  P 

14  Y.C  1  DATA.L  EDIT. PARAMETER. 385  ; 


OM  \  CHANGE  OUTPUT  MODE 

55  X.C  24  COLUMN  6  P 

15  Y.C  1  DATA.L  EDIT. PARAMETER. 385  ; 


E:-:  \  EXPANSION  MODE 

55  X.C  24  COLUMN  7  P 

16  Y.C  1  DATA.L  EDIT. PARAMETER. 385  ; 


GC  \  CHANGE  GAIN  CONTROL 

55  X.C  24  COLUMN  8  P 

17  Y.C  1  DATA.L  EDIT. PARAMETER. 385  ; 


EDIT. DATA. FORMAT  DF  DATA. FORMAT  "(D)  "- 

IF  X  Z  -  X  CLRSCR  1  10  "SUB  DF 

ELSE  X  Z  +  X  THEN  "  D"  X  "."  "CAT  COM. DATA  COM. DATA  GW  ; 
D1.385  SC  1  Z  1  D  D1  DF  EDIT . DATA . FORMAT  DF  D1  ; 


71 


D2.385 

SC 

2 

Z 

2 

D 

-  D2 

DF 

D3.385 

SC 

4 

Z 

;-  3 

D 

-  D3 

DF 

D4.385 

SC 

8 

Z 

;-  4 

D 

-  D4 

DF 

D5.385 

SC 

16 

Z 

5 

D 

-  D5 

DF 

D6.385 

SC 

32 

Z 

6 

D 

-  D6 

DF 

DF. STATUS. 

385 

It  •  ^ 

ft 

It  %  ^ 


EDIT. DATA. FORMAT  DF  D2  " 
EDIT. DATA. FORMAT  DF  D3  " 
EDIT. DATA. FORMAT  DF  D4  " 
EDIT. DATA. FORMAT  DF  D5  " 
EDIT. DATA. FORMAT  DF  D6  ” 


RECEIVE. DATA. 385  SC 

1  9  GOTO.XY  CLEAR. DISPLAY. DF  3  FOREGROUND 
1  9  GOTO.XY  DISPLAY. DF  4  FOREGROUND 


DF. MENU. 385 

MENU. STATUS  DF. STATUS . 385 
"  SELECT  DATA  FORMATS"  MENU. TITLE 
2  34  11  77  MENU. SHAPE 
0  4  MENU. COLOR 
U  MENU. PROMPT. COLOR 
1  1  "  Channel  A  "  MENU.ITEM{  D1.385  ) 

21"  Channel  B  "  MENU.ITEM{  D2.385  ) 

31"  Vector  Sum  &  Phase  Angle  "  MENU.ITEM{  D3.385  ) 

41"  A  +  B  "  MENU.ITEM{  D4.385  ) 

51"  A  -  B  "  MENU.ITEM{  D5.385  ) 

61"  A  /  B  "  MENU.ITEM{  D6.385  } 

MENU. END 


ITHACO.STATUS2 

DISPIAY. DATA. 385  1  19  GOTO.XY  CLEAR. DISPLAY. DF 
1  19  GOTO.XY  DISPLAY. DF 

26  12  GOTO.XY  ."  CURRENT  PARAMETER  SETTINGS" 

"  ********************" 

. "  ********************" 

CHANGE  PARAMETERS" 

RECEIVE  AND  SHOW  DATA" 

READ/SAVE  PARAMETER  SETTINGS" 
EXIT  TO  'OK'  PROMPT" 

RETURN  TO  MAIN  MENU" 


1  12  GOTO.XY  . 
58  12  GOTO.XY 


GOTO.XY 

GOTO.XY 

GOTO.XY 

GOTO.XY 

GOTO.XY 


ITHACO.MENU2 

MENU. STATUS  ITHACO. STATUS 2 
"  ITHACO  385EO  MAIN  MENU"  MENU. TITLE 
1  1  26  78  MENU. SHAPE 
0  3  MENU. COLOR 
15  MENU. PROMPT. COLOR 

14  1  "  Sensitivity;"  MENU. IT'  ,  FS  ) 

15  1  "  Bandwidth;"  MENU.ITEM{  BW  ) 

16  1  "  Integration  Size;"  MENU.ITEM{  IL  ) 

17  1  "  Autorange  Delay;"  MENU.ITEM(  AD  ) 


19  1  "  Data  Format:"  MENU.ITEM{  DF. MENU. 385  ) 

14  40  "  Trigger  Mode:"  MENU.ITEM{  TM  ) 

15  40  "  Output  Mode:"  MENU.ITEM{  OM  ) 

16  40  "  Expansion:"  MENU.ITEM{  EX  } 

17  40  "  Gain  Control:"  MENU.ITEM{  GC  } 

MENU. END 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
\  \ 

\  GRAPH  DATA  FROM  THE  AMPLIFIER  \ 

\  \ 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

:  CHANGE. NT. 385 

1  21  GOTO.XY  ."  INPUT  NUMBER  OF  TEST  DATA  (  1  -  10  ) :  "  "INPUT  NTS 
NTS  32  "NUMBER  NT  :-  1  NT  +  NT  :- 

17  NT  <  IF  ."  TOO  HIGH  "  17  NT  :-  THEN 

2  NT  >  IF  ."TOO  LOW  "  2  NT  :-  THEN 

1  21  GOTO.XY  CLRSCR  "TYPE  CLRSCR  "TYPE 


:  INIT. TEST. 385 

CPS. 385  8  2  "SUB  0  "NUMBER  X  :- 
0  AOD  :-  X  Y  :- 
X  0  O  IF 

X  32  >-  IF  13  AOD  :-  X  32  -  X  :-  THEN 
X  16  >-  IF  10  AOD  +  AOD  :-  X  16  -  X  :-  THEN 


X 

8 

>» 

IF 

10  AOD 

+ 

AOD 

:-  X 

8 

-  X 

:-  THEN 

X 

4 

>- 

IF 

17 

AOD 

+  AOD 

:-  X 

4 

-  X 

:-  THEN 

X 

2 

>- 

IF 

10 

AOD 

+ 

AOD 

:-  X 

2 

-  X 

:-  THEN 

X 

1 

>- 

IF 

10 

AOD 

+ 

AOD 

:-  X 

1 

-  X 

THEN 

THEN 


;  CLEAR. TEST. DISPLAY. 385 
22  2  DO 

1  I  GOTO.XY  CLRSCR  "TYPE 
37  I  GOTO.XY  CLRSCR  "TYPE 
72  I  GOTO.XY  CLRSCR  1  4  "SUB  "TYPE 
LOOP 


:  TEST. 385 

\  CLEAR. TEST. DISPLAY. 335 
ITH385 
"  TI"  GW 
NT  1  DO 

RAW. DATA. 385  " [  I  ]  GR 


LOOP 
"  TE"  GW 


CONVERT. 385 
1  AOD  +  AOD 
7  1  DO 

100  ST  t  I  ] 

LOOP 

Y  X 

X  0  O  IF 

X  32  >-  IF  AOD  13  -  AOD  AOD  ST  [  1  ]  X  32  -  X  THEN 

X  16  >-  IF  AOD  10  -  AOD  AOD  ST  [  2  )  X  16  -  X  THEN 


X 

8 

>- 

IF  AOD 

10 

-  AOD 

AOD 

ST 

t 

3  ] 

X 

8 

-  X 

-  THEN 

X 

4 

>- 

IF  AOD 

17 

-  AOD 

AOD 

ST 

[ 

4  ] 

X 

4 

-  X 

-  THEN 

X 

2 

>- 

IF  AOD 

10 

-  AOD 

AOD 

ST 

t 

5  ] 

X 

2 

-  X 

-  THEN 

X 

1 

>- 

IF  AOD 

10 

-  AOD 

AOD 

ST 

( 

6  ] 

X 

1 

-  X 

-  THEN 

THEN 
NT  1  DO 

100  ST  [  1  ]  -  IF  "  N  A"  A/B  "t  I  ]  ELSE 

RAW. DATA. 385  " (  I  ]  ST  [  1  ]  13  "SUB  A/B  "[  I  ]  THEN 

100  ST  I  2  ]  -  IF  "  N  A"  A-B  "[  I  ]  ELSE 

RAW. DATA. 385  " [  I  ]  ST  (  2  ]  10  "SUB  A-B  "[  I  ]  THEN 

100  ST  [  3  ]  -  IF  "  .  N  A"  A+B  "(  I  ]  ELSE 

RAW. DATA. 385  " (  I  ]  ST  [  3  ]  10  "SUB  A+B  " [  I  ]  THEN 

100  ST  [  4  ]  -  IF  "  N  A"  PHASE  "(  I  ]  "  N  A"  AB  "[  I  ] 

ELSE  RAW.DATA.3S5  " (  I  1  ST  [  4  ]  10  +  7  "SUB  PHASE  "[  I  ] 

RAW. DATA. 385  "[  I  ]  ST  [  4  ]  10  SUB  AB  "[  I  ]  THEN 

100  ST  (  5  ]  -  IF  "  N  A"  B  "[  I  ]  ELSE 

RAW. DATA. 385  " [  I  ]  ST  [  5  ]  10  "SUB  B  "[  I  ] 

B  "[  I  ]  0  "NUMBER  REAL  BN  [  I  )  ;-  STACK. CLEAR  THEN 
100  ST  [  6  ]  -  IF  "  N  A"  A  "(  I  ]  ":-  ELSE 
RAW. DATA. 385  " [  I  ]  ST  [  6  ]  10  "SUB  A  "(  I  j 
A  "(  I  ]  0  "NUMBER  REAL  AN  [  I  ]  :-  STACK. CLEAR  THEN 

LOOP 


SHOW. DATA. 385  5  YC 

NT  1  no 

1  YC  GOTO.XY  A  "[  I  ]  "TYPE 
12  YC  GOTO.XY  B  "[  I  ]  "TYPE 
23  YC  GOTO.XY  AB  "[  I  ]  "TYPE 
34  YC  GOTO.XY  PHASE  "[  I  ]  "TYPE 

42  YC  GOTO.XY  A+B  "(  I  ]  "TYPE 

53  YC  GOTO.XY  A-B  "(  I  ]  "TYPE 

64  YC  GOTO.XY  A/B  "{  I  ]  "TYPE 

1  YC  +  YC 


LOOP 


DISPLAY. TEST . RESULTS 
4  FOREGROUND 
INIT. TEST. 385 
TEST. 385 
CONVERT. 385 
3  3  GOTO.XY  ."  CHA 
35  3  GOTO.XY  ."  PH 
68  3  GOTO.XY  ."  A/ 
1  FOREGROUND 
SHOW. DATA. 385 
3  FOREGROUND 


CHAN  A"  14  3  GOTO.XY 
"  PHASE"  44  3  GOTO.XY 
"  A/B" 


CHAN  B"  23  3  GOTO.XY  ."  VECTOR  SUM 
A  +  B"  54  3  GOTO.XY  ."  A  -  B" 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'^\\'^\^\\\'^^ 

\  ' 

V  Execute  Specific  Parameter  Changes  \ 

\  \ 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'^ 


SCS.385 

SAVE. RESTORE. MENU  MENU. EXECUTE 
CPS. 385  CPSI.385  ">ARRAY 
FILE. TEMPLATE 

INTEGER  DIM[  100  ]  SUBFILE 

END 

FILE. NAME  DEFER>  FILE. CREATE 
FILE. NAME  DEFER>  FILE. OPEN 
1  SUBFILE  CPSI.385  ARRAY>FILE 
FILE . CLOSE  MENU . ESCAPE  ; 


SAVE  CURRENT  SETTINGS 
IN 

ASYST  FORMAT 


RSS.385 

SAVE . RESTORE . MENU  MENU . EXECUTE 
FILE. NAME  DEFER>  FILE. OPEN 
1  SUBFILE  CPSI.385  FILE>ARRAY 
FILE. CLOSE 

CPSI.385  CPS.  385  ARRAY>" 

ITH385 

CPS. 385  1  164  "SUB  GW 
255  SPD  5  CUT 
MENU. ESCAPE  ; 


RESTORE  SAVED  SETTINGS 
IN 

ASYST  FORMAT 


ITHAC0.MENU4 

2  50  6  76  MENU. SHAPE 

3  0  MENU. COLOR 

14  MENU. PROMPT. COLOR 

I  2  "  GO  TO  THE  O.K.  PROMPT"  MENU. ITEM!  OKP  ) 


•4lvr 


22"  SAVE  CURRENT  SETTINGS"  MENU,ITEM{  SCS.385  ) 
3  2  "  READ  SAVED  SETTINGS"  MENU.ITEM{  RSS.385  ) 
MENU. END 


76 


•  • 


Appendix  K  *■  Program:  LBA.ZZX  (Spiricon  -  Laser  Beam  Analyzer) 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  \ 


\ 

\ 

\ 

\ 

\ 

\ 


Spiricon  -  LBAIOO  Laser  Beam  Analyzer 

***  This  program  has  been  fully  completed.  Some  details  need  to  be 
worked  out  with  the  data  display,  except  for  the  beam  profile. 


\ 

\ 

\ 

\ 

\ 

\ 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\  \ 
\ 

\  **************************  DECLARE  VARIABLES  ***************************  / 

\ 

\  DECLARE  VARIBLES  &  LOAD  WITH  DEFAULT  DATA 


DIM(  40 
14440 
15 
2 


D.LBA 


,  20  ]  STRING. ARRAY 
STRING  LBAS 
STRING  LBACOM 
STRING  FRAME 
INTEGER  SCALAR  LBAO  0  LBAO 
INTEGER  DIM(  800  ]  ARRAY  DLBA.TEXT 


\  DATA  DESCRIPTIONS 
\  GPIB  STRING  FOR  PICTURE 
\  LBA  FRAME  COMMENT 
\  FRAME  # 

\  CHECK  IF  LBA  WAS  JUST  INITIALIZED 
\  LBA  TEXT  DATA,  USED  FOR  STRING  TO 
\  INTEGER  CONVERSION. 


TOKEN  DATAR 
TOKEN  DATAS 
TOKEN  DATAl 
TOKEN  DATA2 
TOKEN  DATA3 
TOKEN  DAT 


\ 

\ 

\ 

\ 

\ 

\ 


DATA  ARRAYS 


:  RELOAD. LBA 
7EXP.MEM  IF 

EXP.MEM> 
EXP.MEM> 
EXP.MEM> 
EXP.MEM> 
EXP.HEM> 
EXP.MEM> 

THEN 

INTF^FR  DIM[  220  ] 
INTEi  .  DIM[  220  ] 
INTE&r.R  DIM[  7220  ] 
INTEGER  DIM[  120  , 
INTEGER  DIM[  120  , 


DATAR 

DATAS 

DATAl 

DATA2 

DATA3 

DAT 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


CHECK  IF  AN  EMM  IS  PRESENT  IN  DOS. 

IF  EMM  IS  PRESENT,  TOKENS  ARE  PLACED 
INTO  EXPANDED  MEMORY. 


OTHERWISE  THEY  BECOME  ARRAYS 
UNNAMED. ARRAY  BEC0MES>  DATAR 
UNNAMED. ARRAY  BECOMES>  DATAS 
UNNAMED. ARRAY  BEC0MES>  DATAl 
120  ]  UNNAMED. ARRAY  BECOMES>  DATA2 
120  ]  UNNAMED. ARRAY  BEC0MES>  DATA3 


INTEGER  DIM[  60  ]  UNNAMED . ARRAY  BECOMES>  DAT 


RELOAD. LBA 


MENU  LBA.MENU  \ 

MENU  SRLBA  \ 

VUPORT  LBA.PORT  \ 

0  .252  VUPORT. ORIG  \ 

1  .748  VUPORT. SIZE  \ 

20  0  25  80  WINDOW  LBA.WIN  \ 


DECLARE  MENUS 

DECLARE  VUPORT  IN  GRAPHICS  DISPLAY 

ORIGIN 

SIZE 

DECLARE  GRAPHICS  WINDOW 


\  **************************  COLON  DEFINITIONS  *************************  / 


:  LBAONE  \  IF  IT  IS  FIRST  COMMUNICATION,  YOU  HAVE  TO  SEND  "  :REM" 

0  LBAO  -  IF  LBA_100  "  :REM"  GW  COM  GR 

THEN  2  LBAO  ;  • 


;  RLBAF  \  READ  A  FRAME  OF  DATA  FROM  THE  LBA 

"  :CAP  1  "  "CR.LF"  "CAT  GW 
"  :KRS  "  "CR.LF"  "CAT  GW 
"  :STS?  "  "CR.LF"  "CAT  GW 

LBAS  GR  • 

LBAS  44  "NUMBER  SS. CLEAR  "."  FRAME 

40  20  GOTO.XY  ."  _ READING  FRAME  #  "  FRAME  "TYPE 

"  :RDD?  "  FRAME  "CAT  "CR.LF"  "CAT  COM  COM  GW 
LBAS  GR  LBAS  14  14393  "SUB  DATAl  ">ARRAY 
"  :FST?  "  FRAME  "CAT  "CR.LF"  "CAT  COM  COM  GW 

LBAS  GR  LBAS  5  240  "SUB  DATAS  ">ARRAY  #  • 

"  :RDR?  "  FRAME  "CAT  "CR.LF"  "CAT  COM  COM  GW 
LBAS  GR  LBAS  7  200  "SUB  DATAR  ">ARRAY 


:  GLBAF  \  GRAPH  LBA  PICTURE 

\  GRAPHICS  MODE 
\  GO  TO  GRAPHICS  DISPLAY 
\  USE  GRAPHICS  WINDOW 
\  USE  GRAPHICS  VUPORT 
\  CLEAR  VUPORT 
\  OUTLINE  THE  VUPORT 
\  OUTLINE  THE  WINDOW 

\  REPLOT  PICTURE  PIXEL  BY  PIXEL 


I2*396+M:-M1+Y:- 
J  2  *  L  :- 
348  L  -  N  N  1  -  Z 
MNP!  M  Z  P! 

Y  N  P!  Y  Z  P! 

LOOP 


16  GRAPHICS. DISPLAY. MODE 

GRAPHICS . DISPLAY 

LBA.WIN 

LBA.PORT 

VUPORT. CLEAR 

OUTLINE 

(BORDER) 

121  1  DO 
121  1  DO 

DATA2  [  J  ,  I  ]  COLOR 
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3  COLOR 


\  LABEL  DATA 


.05 

.96 

POSITION 

tt 

Total 

tt 

LABEL 

.05 

.92 

POSITION 

tt 

Peak 

tt 

LABEL 

.05 

.88 

POSITION 

tt 

Peak  Loc 

tt 

LABEL 

.05 

.84 

POSITION 

tt 

Centroid 

tt 

LABEL 

.05 

.80 

POSITION 

ft 

Diameter 

tt 

LABEL 

.05 

.72 

POSITION 

tt 

Elliptical  Beam 

tt 

LABEL 

.05 

.68 

POSITION 

n 

Major  Axis 

tt 

LABEL 

.05 

.64 

POSITION 

tt 

Minor  Axis 

tt 

LABEL 

.05 

.60 

POSITION 

tt 

Orientation 

n 

LABEL 

.05 

.56 

POSITION 

n 

Roundness 

tt 

LABEL 

.05 

.50 

POSITION 

tt 

Gauss  fit 

tt 

LABEL 

.05 

.44 

POSITION 

tt 

CTR,  Width 

tt 

LABEL 

.05 

.41 

POSITION 

tt 

Height 

tt 

LABEL 

.05 

.38 

POSITION 

tt 

Correlation 

tt 

LABEL 

.05  .33 

POSITION 

tt 

ctr,  width 

tt 

LABEL 

.05 

.30 

POSITION 

tt 

height 

H 

LABEL 

.05  .27 

POSITION 

tt 

correlation 

tt 

J-ABEL 

.35 

.96 

POSITION 

tt 

Top  Hat 

tt 

LABEL 

.35 

.9? 

POSITION 

tt 

Mean 

It 

LABEL 

.35 

.88 

POSITION 

ft 

Dev 

tt 

LABEL 

.35 

.84 

POSITION 

n 

Min 

It 

LABEL 

.35  .80 

POSITION 

tt 

Max 

It 

LABEL 

.35 

.72 

POSITION 

tt 

tt 

LABEL 

.35  .68 

POSITION 

ft 

Divergeance 

tt 

LABEL 

.35 

.64 

POSITION 

tt 

1  - 

ft 

LABEL 

.35  .60 

POSITION 

rt 

Elliptical 

ft 

LABEL 

.35 

.56 

POSITION 

tt 

ELLIPSE 

tt 

LABEL 

.35 

.50 

POSITION 

tt 

SPIRICON 

tt 

LABEL 

.35 

.44 

POSITION 

It 

by  BKD 

It 

LABEL 

.35 

.41 

POSITION 

It 

It 

LABEL 

.35 

.38 

POSITION 

It 

tt 

LABEL 

.35 

.33 

POSITION 

It 

tt 

LABEL 

CURSOR. OFF 
LBA.MIN 

2  2  GOTO.XY  ENTER  PCX  FILENAME:  " 

"INPUT  FILE. NAME 
500  MSEC. DELAY 

2  2  GOTO.XY  ."  .  NOW  SAVING  PCX  IMAGE  TO  FILE 

FILE. NAME  DEFER>  VUP>PCX 
"INPUT  SS. CLEAR 
MENU. ESCAPE 


:  G.LBA.F  \  GRAPHING  A  FRAME  FROM  THE  LBA  ^ 

40  20  GOTO.XY  . "  .  UNPACKING  COMPRESSED  DATA"  • 

121  1  DO  \  CONVERT  PACKED  INTEGER  DATA  TO  PIXEL  INTEGER  DATA  FORMAT 
I  60  *  59  -  X 
DATAl  SUB[  X  ,  60  ]  DAT 
DAT  UNPACK  DATA2  XSECT[  I  ,  !  ) 

DATA2  XSECTI  I  ,  !  ]  16  /  DATA3  XSECT{  I  ,  !  ]  • 

LOOP 

GLBAF  \  GRAPH  THE  PICTURE 
"INPUT  SS. CLEAR  ; 


;  SLBA  \  SAVE  PICTURE  DATA 

"  FRAME#  "  FRAME  "CAT  LBACOM  \ 

SAVE. RESTORE. MENU  MENU. EXECUTE  \ 

LARGE. DATAFILE  \ 

FILE. TEMPLATE  \ 

1  COMMENTS  \ 

INTEGER  DIM[  120  ,  120  ]  SUBFILE  \ 

END  \ 

FILE. NAME  DEFER>  FILE. CREATE  \ 

FILE. NAME  DEFER>  FILE. OPEN  \ 

1  SUBFILE  bATA2  ARRAY>FILE  \ 

LBACOM  1  >COMMENT  \ 

FILE. CLOSE  MENU. ESCAPE  MENU. ESCAPE  ; 


•  • 


:  RLBA 

SAVE . RESTORF . MENU  MENU . EXECUTE 
FIiJl.NAME  DEFER>  FILE. OPEN 
1  SUBFILE  DATA2  FILE>ARRAY 
1  C0MMENT>  LBACOM 
FILE. CLOSE 

MENU . ESCAPE  MENU . ESCAPE  ; 


\  RESTORE 
\ 

\ 

\ 

\ 

\ 

\ 


PICTURE  DATA 


SRLBA  • 

2  50  6  76  MENU. SHAPE 

3  0  MENU. COLOR 

14  MENU. PROMPT. COLOR 

1  2  "  GO  TO  THE  O.K.  PROMPT"  MENU.ITEM{  OKP  ) 

22"  SAVE  CURRENT  SETTINGS"  MENU.ITEM{  SLBA  ) 

32"  READ  SAVED  SETTINGS"  M2NU.ITEM{  RLBA  )  • 

MENU. END 


:  LBA.STAT 

LBA_100  (♦) 

T^AONE 

11  FOREGROUND  ; 


• 

LB A. MENU 

"  LASER  BEAM  ANALYZER"  MENU. TITLE 
MENU. STATUS  LBA.STAT 
MENU. BLOW. UP 
1  1  24  78  MENU. SHAPE 

0  11  MENU. COLOR  • 

15  MENU. PROMPT. COLOR 
MENU. STORE. DISK 

3  5  "  READ  A  FRAME  "  MENU.ITEM{  RLFAF  } 

5  5  "  GRAPH  A  FRAME"  MENU.ITEM{  G.LBA.F  ) 

8  5  "  SAVE  &  RESTORE"  MENU.ITEM{  SRLBA  ) 

MENU. END  • 


Appendix  L  -  Progm:  JOE.XXZ  (Non-Linear  Optical  Switch  Test) 


\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
\  \ 

\  Non-Linear  Optical  Switch  Test  Control  Program  (NLOSTCP)  \ 

\  \ 

\  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

^  JLJIAJIAJIAAAAJIAAAJIJIJIJIJIJIJIJIJIXJIJI  XJIJIJIA AXXXAAAJl A JIAA  *  **** 

\ 

\  DECLARE  VARIBLES  &  LOAD  WITH  DEFAULT  DATA 


5  STRING  INT 
20  STRING  D.W 
8  STRING  KMD.S 
30  STRING  FNAME 


D;\NLINTSW"  FNAME  " : 


\  Number  of  Intervals 
\  Read  W  axis  Display 
\  Klinger  Motor  String 
\  Default  File  Name 


INTEGER  SCALAR  CDETEC 
INTEGER  SCALAR  KMD.N 
INTEGER  SCALAR  OPTIONJ 
DP. INTEGER  SCALAR  V 
DP. INTEGER  SCALAR  U 

REAL  SCALAR  STRING. NUM 
DP. REAL  SCALAR  DEGREE 


DP. REAL  DIM(  1000  ,  2  ]  ARRAY  DATA123  0  DATA123  - 
"  NO"  INT. PAUSE 


2  CDETEC  \  Change  Detector 

\ 

\  Joe's  Options 

\ 

\ 

\  Convert  String  to  Number 
\  Substrate  Angle  of  Reflection 


TOKEN  TOTAL 
TOKEN  DEGREES 
TOKEN  PEAK 
TOKEN  DATA. 123 


TOKEN  XCOOR 
TOKEN  YCOOR 
TOKEN  ZCOOR 


:  RELOAD. JOE 

7EXP.MEM  IF 

EXP.MEM>  TOTAL  EXP.i 

EXP.MEM>  DEGREES  EXP.: 

EXP.MEM>  PEAK  EXP.I 

EXP.MEM>  DATA. 123 

THEN 

1000  DP. REAL  RAMP  BECOMES>  TOTAL 
1000  DP. REAL  RAMP  BEC01iES>  DEGREES 
1000  DP. REAL  RAMP  BECOMES>  PEAK 
0  TOTAL  0  DEGREES  0  PEAK  •- 


EXP.MEM>  XCOOR 
EXP.MEM>  YCOOR 
£XP.MEM>  ZCOOR 


RELOAD. JOE 
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MENU  SAVE. RESTORE. JOE. MENU 
MENU  LBA. TOTAL. FILE. MENU 
MENU  DATA. TO. 123 
MENU  OPTIONJ.MENU 
MENU  CDETECTOR.MENU 
MENU  JOE. MENU 


\ 


COLON  DEFINITIONS 


:  CNS  \  CHANGE  NUMBER  OF  STEPS  PER  INTERVAL 

20  14  GOTO.XY  ."  ENTER  THE  NUMBER  OF  DEGREES  BETWEEN  INTERVALS" 
40  16  GOTO.XY  7  BACKGROUND  CLRSCR  1  4  "SUB  "TYPE 
40  16  GOTO.XY  "INPUT  SPI  0  BACKGROUND 
40  16  GOTO.XY  CLRSCR  1  5  "SUB  "TYPE 
SPI  0  "NUMBER  KMD.N  SS. CLEAR  KMD.N  0  > 

IF  "  +"  PN  ELSE  "  -"  PN  THEN 
KMD.N  ABS  "."  SPI 

:  CPI  \  CHANGE  POWER  PER  INTERVAL 

20  14  GOTO.XY  ."  ENTER  THE  DESIRED  CHANGE  IN  POWER  PER  INTERVAL 
40  16  GOTO.XY  7  BACKGROUND  CLRSCR  1  4  "SUB  "TYPE 
40  16  GOTO.XY  "INPUT  SPI  0  BACKGROUND 
40  16  GOTO.XY  CLRSCR  1  5  "SUB  "TYPE  ; 


:  CNI  \  INPUT  NUMBER  OF  INTERVALS 

20  14  GOTO.XY  ."  ENTER  THE  NUMBER  OF  INTERVALS  (  1  -  1000  ) 

40  16  GOTO.XY  7  BACKGROUND  CLRSCR  1  4  "SUB  "TYPE 
40  16  GOTO.XY  "INPUT  INT  0  BACKGROUND 

40  16  GOTO.XY  CLRSCR  1  5  "SUB  "TYPE 

20  14  GOTO.XY  CLRSCR  "TYPE  60  I?  GOTO.XY  CLRSCR  1  15  "SUB  "TYPE 
INT  0  "NUMBER  Q  ; 

;  NO. DEGREES  \  DISPLAY  THE  NUMBER  OF  DEGREES  OF  THE  SUBSTRATE 
MC4A 
"  DW"  GW 

D.W  GR  D.W  3  20  "SUB  0  "NUMBER  1000.0  /  RX 
SS. CLEAR  STACK. CLEAR 
MC4B 
"  DZ"  GW 

D.W  GR  D.W  3  20  "SUB  0  "NUMBER  100.0  /  RY 

RX  RY  +  DEGREE 

SS . CLEAR  STACK . CLEAR 

30  5  GOTO.XY  ."  DEGREES:  "  DEGREE  .  ; 


IID 

ILP 

IIDAZ 


1  OPTIONJ 

2  OPTIONJ 

3  OPTIONJ 


-  MENU. ESCAPE 

-  MENU. ESCAPE 

-  MENU. ESCAPE 


\  OPTION  -  CHANGE  REFLECTION  ANGLE 
\  OPTION  -  CHANGE  LASER  POWER 
\  OPTION  -  CHANGE  ANGLE  THEN  HEIGHT 


OPTIONJ. MENU  \  OPTIONS  MENU 

2  50  4  76  MENU. SHAPE 
MENU. NO. BORDER 

3  0  MENU. COLOR 

14  MENU. PROMPT. COLOR 

0  2  "  INCREMENT  IN  DEGREES"  MENU.ITEM{  IID  } 

1  2  "  INCREMENT  LASER  POWER"  MENU.ITEM{  ILP  ) 

2  2  "  DEGREES  &  Z  AXIS"  MENU.ITEM{  IIDAZ  ) 
MENU. END 


:  JO 


MAIN  PROGRAM 


OPTIONJ. MENU  MENU. EXECUTE  \  FIRST,  ASK  FOR  OPTIONS 
IX:-  12  FOREGROUND  \ 

1  CDETEC  -  IF  1  BACKGROUND  \  IF  YOU  ARE  USING  THE  LBA,  EACH  PICTURE 

\  MUST  BE  STORED  IMMEDIATELY  DUE  TO 
\  MEMORY  CONSTRAINTS. 

25  16  GOTO.XY  ."  LEAVE  OFF  FILE  EXTENSION  " 

20  17  GOTO.XY  ."  FILENAME  MUST  BE  LESS  THAN  6  LETTERS  " 

SAVE. RESTORE. MENU  MENU. EXECUTE  FILE. PATH  "  \V"  "CAT  NAME. FILE  "CAT 
FNAME  0  BACKGROUND 
25  16  GOTO.XY  CLRSCR  "TYPE 

20  17  GOTO.XY  CLRSCR  "TYPE  50  17  GOTO.XY  CLRSCR  •  10  "SUB  "TYPE 

THEN 

OPTIONJ  CASE  \  ASK  FOR  PARAMETERS  FOR  CHOSEN 

1  OF  CNS  CNI  ENDOF  \  TEST  OPTION. 

2  OF  CPI  CNI  ENDOF  \ 

3  OF  CNS  CNI  \ 

40  13  GOTO.XY  ."  ENTER  NUMBER  OF  Z  AXIS  MOVES" 

7  BACKGROUND  50  14  GOTO.XY  CLRSCR  1  5  "SUB  "TYPE 
50  14  GOTO.XY  "INPUT  SS  SS  0  "NUMBER  X  SS. CLEAR 
X  1  <  IF  1  X  THEN  0  BACKGROUND 
40  13  GOTO.XY  ."  ENTER  Z  AXIS  STEPS  PER  MOVE  " 

7  BACKGROUND  50  14  GOTO.XY  CLRSCR  1  5  "SUB  "TYPE 
50  14  GOTO.XY  "INPUT  SS 
"  NZ"  SS  "CAT  COM  COM  GW 
20  FOREGROUND. 2  BACKGROUND 

1  CDETEC  O  IF  \  LBA  MUST  SAVE  AFTER  EACH  MOVE 

20  6  GOTO.XY  ."  LEAVE  OFF  FILE  EXTENSION  "  0  BACKGROUND 

2  SAVE. RESTORE. MENU  MENU. EXECUTE  FILE. PATH  "  \"  "CAT  NAME. FILE  "CAT 
FNAME  MENU. ESCAPE  THEN  ENDOF 

ENDCASE 


11  FOREGROUND 

SPI  0  "NUMBER  KMD.N  SS. CLEAR 
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2  OPTIONJ  O  IF  \  SET  THE  DIRECTION  AND  NUMBER 

MC4A  \  OF  STEPS  FOR  THE  KLINGER  MOTORS 

PN  "  +"  IF  "  -W  COM  ELSE  "  +W"  COM  THEN  COM  GW 
KMD.N  1000.0  *  Z  Z  SS 
"  NW"  SS  "CAT  COM  COM  GW 
MC4B 

PN  "  Z"  "CAT  SS  SS  GW 
KMD.N  200.0  *  Z  Z  "."  SS 
"  NZ  "  SS  "CAT  SS  SS  GW 
Q  1  +  Q  12  FOREGROUND 

THEN 

X  1  DO  \  *****  START  PROGRAM  LOOPS  ********  / 

Q  1  DO 

INT. PAUSE  "YES"  "- 
IF  20  28  GOTO.XY  PAK  "TYPE  PCKEY 
ELSE  2000  MSEC. DELAY  THEN 

1  CDETEC  -  IF 

LBA_100  \  USING  SPIRICON  LASER  BEAM  ANALYZER 

LBAONE  \  BECAUSE  OF  THE  SIZE  IT  MUST  BE  SAVED 

RLBAF  \  IMMEDIATELY  FOLLOWING  BEING  RECEIVED 

LBAS  12  20  "SUB  44  "NUMBER  TOTAL  [  I  ]  ;- 
?DROP  44  "NUMBER  PEAK  (  I  ] 

FNAME  J  "."  2  "LEN  2  -  "SUB  "CAT  FILE. NAME 

FILE. NAME  "  ."  "CAT -I  "."2  "LEN  2  -  "SUB  "CAT  FILE. NAME 

LARGE. DATAFILE 

FILE. TEMPLATE 

INTEGER  DIM(  7220  ]  SUBFILE 
INTEGER  DIM[  220  ]  SUBFILE 
INTEGER  DIMt  220  ]  SUBFILE 
END 

FILE. NAME  DEFER>  FILE. CREATE 
FILE. NAME  DEFER>  FILE. OPEN 

1  SUBFILE  DATAl  ARRAY>FILE 

2  SUBFILE  DATAR  ARRAY>FILE 

3  SUBFILE  DATAS  ARRAY>FILE 
FILE. CLOSE 

5  21  GOTO.XY  ."  _  SAVING  TO  "  FILE. NAME  "TYPE 

ELSE 

NWPM835  \  USING  POWER  METER  FOR  BEAM  DETECTION 

RESULTS. 100  GR 

RESULTS. 100  4  20  "SUB  44  "NUMBER  TOTAL  [  I  ]  :- 

THEN 

SS. CLEAR  14  FOREGROUND 

NO. DEGREES  \  REDISPLAY  THE  SUBSTRATE  ANGLE 

DEGREE  DEGREES  [  I  ] 


30  15  GOTO.XY  TOTAL  POWER:  "  TOTAL  (  I  ]  1000  *  .  mW  " 

OPTIONJ  2  -  IF  \  LPC  POWER  IS  RAMPED 

LPC  \ 

"  P  ?  "  "CR.LF"  "CAT  GW  \ 

COM  GR  COM  32  "NUMBER  STRING. NUM  SS. CLEAR 

STRING. NUM  KMD.N  +  STRING. NUM 
STRING. NUM  "."  COM 
"  W"  UNITS 

"  P  "  COM  "CAT  UNITS  "CAT  COM  COM  GW 
ELSE  \  OTHERWISE  THE  KLINGER  MOTORS  MOVE 

MC4B  "  MZ"  GW  \ 

MC4A  "  MW"  GW  "  BW"  SS  "CAT  COM  COM  GW 

THEN 

SS. CLEAR  65  9  GOTO.XY  ."  INCREMENT  #" 

12  FOREGROUND  65  10  GOTO.XY  I  .  ."  OF  ”  Q  . 

LOOP 


3  OPTIONJ  -  IF  \  AUTOMATICALLY  SAVE  DATA  AFTER  EACH 

J  SS  ":*■  \  CHANGE  IN  THE  Z  AXIS 

FNAME  "  ."  "CAT  SS  "CAT  FILE. NAME 
LARGE.  DATAFILE 
FILE. TEMPLATE 
1  COMMENTS 

DP. REAL  DIM[  1000  ]  SUBFILE 
DP. REAL  DIM[  1000  ]  SUBFILE 
DP. REAL  DIM[-  1  ]  SUBFILE 

1  CDETEC  -  IF  DP. REAL  DIM(  1000  ]  SUBFILE  THEN 
END 

FILE. NAME  DEFER>  FILE. CREATE 
FILE. NAME  DEFER>  FILE. OPEN 

1  SUBFILE  TOTAL  ARRAY>FILE 

2  SUBFILE  DEGREES  ARRAY>FILE 

3  SUBFILE  C. FACTOR  AREAY>FILE 
C. FACTOR. UNIT  1  XIOMMENT 

FILE. CLOSE 
MC4A  "  MZ"  GW 

THEN 
Q  1  -  Q 
LOOP 

2000  440  TUNE 
1000  220  TUNE 
2000  880  TUNE 
11  FOREGROUND  ; 

\  *******************  end  of  loop  PROGRAM:  JOE  *************************  / 


:  MOVE. SETUP 
MC4A  "  DW"  GW 


\  THIS  ROUTINE  CALCULATES  THE  CURRENT  SUBSTRATE  ANGLE 
\  FROM  THE  COUNTERS  OF  THE  TWO  ROTATIONAL  STAGES, 
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"NUHBER  X  •-  SS. CLEAR 


\  THEN  CALCULATES  THE 
\  NEEDED  POSITIONS  FOR  A 
\  DESIRED  ANGLE. 

\  RX  -  CURRENT  ANGLE 


D.W  GR  D.W  3  20  "SUB  0  "NUMBER  V  SS. CLEAR 
MC4B  "  DZ"  GW 
D.W  GR  D.W  3  20  "SUB  0 
X  5  *  V  +  1000  /  RX 

\  MC4B  "Z"  IS  THE  DETECTOR  AND  MUST  BE  POSITIONED  AT 
\  AN  ANGLE  TWICE  THE  SIZE  OF  MC4A  "W"  (  THE  SUBSTRATE) 
\  THE  MC4B  "Z"  AXIS  STAGE  IS  100  COUNTS  PER  DEGREE 
\  THE  MC4A  "W"  AXIS  STAGE  IS  1000  COUNTS  PER  DEGREE 
\  THEREFORE  THE  COUNT  DIFFERENCE  IS  1/5. 


13  FOREGROUND 

25  21  GOTO.XY  ,"  INPUT  THE  NUMBER  OF  DEGREES  FOR  THE  SETUP" 

11  FOREGROUND  7  BACKGROUND 

50  5  GOTO.XY  CLRSCR  1  10  "SUB  "TYPE 

50  5  GOTO.XY  "INPUT  SS  SS  0  "NUMBER  KMD.N  SS. CLEAR 
MC4A  \  CALCULATE  FROM  PREVIOUS  POSITION  THE  NEW  POSITION 

RX  2  *  KMD.N  -  1000  *  V  V  " . "  SS  " "  PW"  SS  "CAT  SS  SS  GW 
MC4B  KMD.N  RX  <  IF  RX  KMD.N  THEN 

KMD.N  RX  -  200  *  U  U  SS  "  PZ"  SS  "CAT  SS  SS  GW 


STACK. CLEAR  SS. CLEAR 
13  FOREGROUND  0  BACKGROUND 

25  21  GOTO.XY  ."  WAIT  FOR  THIS  MESSAGE  TO  DISSAPEAR 
11  FOREGROUND  ; 


GTOTAL  \  GRAPH  THE  DATA  PREVIOUSLY  TAKEN 

GRAPHICS. DISPLAY  •  0 

DEGREES  SUB(  1  ,  Q  ]  BECOMES>  XCOOR 

TOTAL  SUB[  1  ,  Q  ]  BECOMES>  YCOOR 

PEAK  SUB[  1  ,  Q  ]  BECOMES>  ZCOOR 

XCOOR  YCOOR 

XY. AUTO. PLOT 

1  CDETEC  -  IF  ZCOOR  Y. DATA. PLOT  THEN  • 

"INPUT  SS. CLEAR 


STOP.AE.INT  \  CHOOSE  WHETHER  TO  STOP  BETWEEN  TAKING  DATA 

INT. PAUSE  "  YES"  "-  IF  "  NO  "  INT. PAUSE 

ELSE  "  YES"  INT. PAUSE  THEN  ;  • 
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\  ***********  SAVE  &  RESTORE  IN  ASYST  FORMAT 


;  SLBA. TOTAL 

SAVE. RESTORE. MENU  MENU. EXECUTE 
FILE. PATH  "  \"  "CAT 
NAME. FILE  "CAT  FILE. NAME 
LARGE. DATAFILE 
FILE. TEMPLATE 
1  COMMENTS 

DP. REAL  DIM[  LOGO  1  SUBFILE 
Dr. REAL  DIM[  1000  j  SUBFILE 
DP. REAL  DIM[  1  ]  SUBFILE 
1  CDETEC  -  IF 

DP. REAL  DIM[  1000  ]  SUBFILE  THEN 
END 

FILE. NAME  DEFER>  FILE. CREATE 
FILE. NAME  DEFER>  FILE. OPEN 

1  SUBFILE  TOTAL  ARRAY>FILE 

2  SUBFILE  DEGREES  ARRAY>FILE 

3  SUBFILE  C. FACTOR  ARBAY>FILE 
1  CDETEC  -  IF 

4  SUBFILE  PEAK  ARRAY>FILE  THEN 
C. FACTOR. UNIT  1  >COMMENT 
FILE. CLOSE  MENU. ESCAPE  MENU. ESCAPE 


\  SAVE  CURRENT  SETTINGS 
\  IN 

\ 

\ 

\  ASYST  FORMAT 
\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


i) 


:  RLBA.TOTAL 

SAVE. RESTORE. MENU  MENU. EXECUTE 
FILE. PATH  "  \"  "CAT 
NAME. FILE  "CAT  FILE. NAME 
FILE. NAME  DEFER>  FILE. OPEN 

1  SUBFILE  TOT.AL  FILE>ARRAY 

2  SUBFILE  DEGREES  FILE>ARRAY 

3  SUBFILE  C. FACTOR  FILE>ARRAY 
1  CDETEC  -  IF 

4  SUBFILE  PEAK  FILE>ARRAY  THEN 
1  COMMENT>  C. FACTOR. UNIT 
FILE. CLOSE 

MENU. ESCAPE  MENU. ESCAPE  ; 


\  RESTORE  SAVED  SETTINGS 
\  . 

\  IN  ASYST  FORMAT 
\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


LBA . TOTAL . FILE . MENU 

2  50  6  76  MENU. SHAPE 

3  0  MENU. COLOR 

14  MENU. PROMPT. COLOR 

1  2  "  GO  TO  THE  O.K.  PROMPT"  MENU.ITEM{  OKP  ) 

22"  SAVE  CURRENT  SETTINGS"  MENU.ITEM(  SLBA. TOTAL  ) 
3  2  "  READ  SAVED  SETTINGS"  MENU.ITEM{  RLBA.TOTAL  ) 
MENU. END 
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\  **A*A-A*A***  SAVE  &  RESTORE  IN  LOTUS  1-2-3  FORMAT 
:  S123 

TOTAL  DATA123  XSECT[  !,!];- 

DEGREES  DATA123  XSECT[  !  ,  2  ] 

DATA123  SUB[  1  ,  Q  :  1  ,  2  1  EQUIV>  DATA. 123 


SAVE. RESTORE. MENU  MENU. EXECUTE  \ 
FILE. PATH  "  \"  "CAT  \ 
NAME. FILE  "CAT  FILE.NAMil  \ 
FILE. NAME  DEFER>  123:- ILE. CREATE  \ 
FILE. NAME  DEFER>  123FILE.OPEN  \ 
1  1  123WRITE. ACROSS  \ 
1  1  Q  2  123READ, RANGE  \ 
DATA. 123  ARRAY>123FILE  \ 


123FILE. CLOSE  MENU. ESCAPE  MENU. ESCAPE  \ 


0 


0 


:  R123  \  RESTORE  SAVED  SETTINGS 

SAVE. RESTORE. MENU  MENU. EXECUTE  \ 

FILE. PATH  "  \"  "CAT  \  IN  LOTUS  1-2-3 

NAME. FILE  "CAT  FILE. NAME  \ 

FILE. NAME  DEFER>  123FILE.OPEN  \ 

WKS.INFO  (  4  ,  1  ]  Q  \ 

DATA123  SUB[  1  ,  Q  ;  1  ,  2  ]  EQUIV>  DATA. 123 
1  1  Q  2  123READ. RANGE 
DATA. 123  123FILE>ARRAY 
12 3FILE. CLOSE 
Q  1  +  Z 
Z  1  DO 

DATA123  [1,1]  TOTAL  (  I  ]  :- 
DATA123  [1,2]  DEGREES  [  I  ]  :- 
LOOP  MENU. ESCAPE  MENU. ESCAPE 


89 


:  C123  \  CONVERT  DATA  SAVED  IN  ASYST  FORMAT  TO  LOTUS  FORMAT 

CLRSCR  FILE. NAME  \  AND  PLACE  ON  DISK  IN  DRIVE  A: 

SAVE. RESTORE. MENU  MENU. EXECUTE 
FILE. PATH  "  \"  "CAT 
NAME. FILE  "CAT  FILE. NAME 

FILE. NAME  SS  FILE. NAME  "  .DAT"  "CAT  FILE. NAME 
FILE. NAME  DEFER>  FILE. OPEN 

1  SUBFILE  TOTAL  FILE>ARRAY 

2  SUBFILE  DEGREES  FILE>ARRAY 

3  SUBFIiJE  C. FACTOR  FILE>ARRAY 

1  COMMENT>  C. FACTOR. UNIT 
FILE. CLOSE  SS  FILE. NAME 

"  A:\"  FILE. NAME  "CAT  "  .WKl"  "CAT  FILE. NAME 

Ql+Q  :-QlDO 

TOTAL.  [  I  ]  DATA123  [1,1] 

DEGREES  [  I  ]  DATA123  [1.2] 

LOOP  Q  1  -  Q 

DATA123  SUB[  1  ,  Q  ;  1  ,  2  ]  BECOMES>  DATA. 123 
FILE. NAME  DEFER>  123FILE. CREATE 
FILE. NAME  DEFFJl>  123FILE.OPEN 
1  1  123WRITE. ACROSS 
DATA. 123  ARRAY>123FILE 

123F1LE. CLOSE  SS  FILE. NAME  MENU. ESCAPE  MENU. ESCAPE  ; 


DATA. TO. 123 

2  50  7  76  MENU, SHAPE 

3  0  MENU. COLOR 

14  MENU. PROMPT. COLOR 


1  2 
2  2 

3  2 

4  2 

MENU. END 


"  GO  TO  THE  O.K.  PROMPT"  MENU.ITEM{  OKP  } 

"  SAVE  CURRENT  SETTINGS"  MENU.ITEM{  S123  ) 
"  READ  SAVED  SETTINGS"  MENU.ITEM{  R123  ) 

"  CONVERT  FROM  C:  TO  A:"  MENU.ITEM{  C123  ) 


SAVE . RESTORE . JOE . MENU 
MENU. NO. BORDER 
MENU. BLOW. UP 
19  30  21  68  MENU. SHAPE 
3  0  MENU. COLOR 
14  MENU. PROMPT, COLOR 
MENU. STORE. DISK 

1  5  "  LOTUS  1-2-3"  MENU.ITEMl  DATA. TO. 123  ) 

1  21  "  ASYST  FORMAT"  MENU. ITEM]  LBA. TOTAL. FILE. MENU  ) 
MENU. END 


:  CDETECl  1  CDETEC  MENU. ESCAPE  ; 

:  CDETEC2  2  CDETEC  MENU. ESCAPE  ; 
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CDETECTOR.MENU  \  MENU  TO  CHANGE  DETECTOR  TYPES 

MENU. NO. BORDER 
MENU. BLOW. UP 
9  30  10  76  MENU. SHAPE 
0  11  MENU. COLOR 
13  MENU. PROMPT. COLOR 
MENU. STORE. DISK 

1  10  "  BEAM  ANALYZER"  MENU.1TEM{  CDETECl  } 

1  30  "  POWER  METER"  MENU.ITEM{  CDETEC2  ) 

MENU. END 


JOE. STATUS 


0  background 
14  FOREGROUND 

50  11  GOTO.XY  INT. PAUSE  "TYPE 
NO . DEGREES  0  background 

1  CDETEC  -  IF  40  9  GOTO.XY  ."  SPIRICON  LBA" 

ELSE  2  CDETEC  -  IF  40  9  GOTO.XY  ."  POWER  METER  " 

ELSE  40  9  GOTO.XY  ."  NO  DETECTOR"  THEN 


THEN 

13  FOREGROUND 

5  1  GOTO.XY  ."  Don't  try  this  at  home!!" 

5  2  GOTO.XY  ."  made  for  Joe  Osman  &  Joe  Chaiken" 
11  FOREGROUND 


JOE. MENU 

"  OPTICAL  SWITCH  TEST  PROGRAM"  MENU. TITLE 

MENU. BLOW. UP 

MENU. STATUS  JOE. STATUS 

1  1  24  78  MENU. SHAPE 

0  11  MENU. COLOR 

15  MENU. PROMPT. COLOR 

MENU. STORE. DISK 

5  5  "  MOVE  SETUP  "  MENU.ITEM{  MOVE. SETUP  } 

75"  CHANGE  POWER  LEVEL"  MENU.ITEM{  CLPCP  ) 

95"  CHANGE  DETECTOR"  MENU. ITEM (  CDETECTOR.MENU  } 

11  5  "  STOP  AT  EACH  INTERVAL  ?  "  MENU.ITEM{  STOP. AE. INT  ) 

14  5  "  RUN  PROGRAM"  MENU.ITEM{  JO  } 

17  5  "  GRAPH  DATA"  MENU.ITEM{  GTOT.\L  ) 

19  5  "  RESTORE  &  SAVE  DATA  "  MENU. ITEM {  SAVE . RESTORE . JOE . MENU  ) 
MENU. END 
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La8«r  Chemistry  of  OrganometalUes  as  a  General  Synthetic  Route  to  Metal  Clusters 
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We  show  ihat  gu>phase  organomeutlia  can  be  photolyzed  using  pulsed  UV-^bie  lasm  to  initiate  synthesa  of  metal  clusters. 
We  use  tne  iog-normat  distribution  function  to  compare  this  new  method  of  cluster  formation  to  other  methods.  Cluster 
iize  aistnbuuons  oroouced  usmg  this  new  method  bear  a  remarkable  simiianty  to  those  ptoouceo  using  nozzle  beam  expansxHi 
meinods.  Althougn  there  is  oeviation  from  this  distiibuuon.  these  growth  m^oda  would  seem  to  involve  ooaiesoenoe  growtn 
mecnamsms  as  oopoaea  to  Ostwald  noening.  Possible  reasons  for  the  deviation  from  a  log-natural  distnbution  are  suggestnL 
Laser  cnemistry  allows  synthesu  of  gas-phase  metal  clusters  because  of  the  very  high  pressures  of  meial  atoms  attainable 
using  muitiohoton  dissoaation  of  organometallia. 


Introducnon 

Clusters'  of  atoms  and  molecules  span  the  transition  from 
quantum  mechanical  to  classical  objects  and  have  been  syn¬ 
thesized^  'using  sintering  and  heated  wire  evapontion.  laser 
vaponzation  combined  with  a  supersonic  expansion.*  and  related 
methods^  which  utilize  ovens.  We  show  that  gas-phase  organo- 
meullics  can  be  photolyzea  using  pulsed  (JV-visibie  lasers  to 
initiate  synthesis  of  metal  clusters.  We  use  the  log-normal  dis¬ 
tribution  function^-*  to  compare  this  new  method  of  cluster 
formation  to  the  other  methods.  Cluster  size  distributions  pro¬ 
duced  using  this  new  method  bear  a  remarkable  sinuiaiity  to  those 


1 1 )  Pool.  R.  Sctmet  19*0.  24S.  1186-1188. 

i:i  Granoviit.  C.  G..  Bahnnan.  R.  A.  Solid  State  Commuit.  197*.  It. 
::3-126. 

;  3)  Granovitt.  C.  G .  Buhrman.  R.  A.  J.  Catal.  J976.  42. 

I  SI  El-Saveo.  .M.  A  J.  Phvt.  Chem.  1991.  95.  3898-3906. 

■  31  Klou.  T.  D.:  Wml«.  9.  J.;  Parks.  E.  K..  Rilev.  S.  J.  J  Chem.  fhvs. 
1990. 92.  :::o. 

(6)  Siano.  0  B.  J.  Chem.  Edac.  1972.  49.  755-757 


produced  using  the  nozzle  beam  expansion  methods.  Although 
there  is  some  deviation  from  this  distribution,  both  methods  would 
seem  to  involve  coalescence  growth'  as  opposed  to  Ostwald  ri- 
peni..^.'  Laser  chemistry  allows  synthesis  of  gas-phase  meul 
clusters  becauK  of  the  very  high  pressures  of  metal  atoms  at¬ 
tainable  usmg  muitiphoton  dissociauon  of  organometallia. 

Multiphoton  disocaition  of  organomeuilia  is  widely  known^'^ 
to  produce  free  metal  atoms,  ions,  and  other  fragmenuuon 
products  which  coalesce  to  produce  LCVD  films.''''*  Because 


(7)  Machlin.  B.  S.  Theimodviuuma  and  Kinetics  Relevant  to  Matenais 
ScivNcr  Giro  Press:  Croioo-on-Hudioa.  1991. 

(8)  Hotscalopp.  J.:  Rooney.  O..  Samoruki.  B.:  Chaiken.  i.  Chem.  Rhys. 
Ult.  1909.  116.  380-386. 

(9)  Howmlopp.  J.:  Roaocy.  O4  Samonki.  B.:  Chatkai.  J.  J.  Chem.  Rhys. 
1900. 85.  3331-3337. 

( 10)  HoMcnlooo.  U  Roonev.  O.:  Samoraki.  B..  Chaiken.  J.  J.  Chem.  Rhvs. 
1900.95.  3326-3330. 

(11)  ^rnonski.  B™  Chaiken.  J.  J.  Chem.  Rhvs.  1909.  90.  6079-4090. 

(12)  Samonski.  B.;  Chaiken.  J.  Rhys.  Rev.  A  1980.  J9.  3498-3503. 


0022-36S4/92/2096-3133S03.00/0  9  1992  American  Chemical  Sodciy 


The  Journal  ot  Physical  Chemistry.  Voi.  96  So.  S.  '.992 


0 . 2u:n 


rignre  1.  Scanmns  ciearon  micrograon  ot  transoarerti  oiatinum  liims 
on  ouanz  suostrate.  Auger  eie«ron  soeciroscooy  snows  inai  me  onsnt 
regions  arc  nearly  pure  oiaunum  ana  aarx  regions  are  voias  wnicn  extena 
10  me  suotrate. 

these  fiims  are  comoosed  of  clusters,  it  is  reasonaole  to  susoect 
ifaat  they  could  have  unusual  optical  ana  eieancai  orooenies.-- 
Puretsicy  and  Dem  yanenxo'’  renortea  over  a  vear  aeo  taat  na- 
nosecona  excimer  laser  ouises  coula  oe  useo  to  orooiice  ciouas 
of  metal  clusters  ana  uitrafine  oarticies  from  aas-onase  meiai 
oaroonvis.  Their  estimate  on  tne  size  ano  snaoe  cistncution  was 
oaseo  on  mooiiitv  measurements  in  wnicn  me  numoer  oensities 
ana  temocr-irures  o:  '..ne  noouiauons  orooucco  couio  not  oe  xnown 
moeticnoemiv.  .Sevenneiess.  tneir  evioence  lor  tne  existence  of 
Clusters  ana  uitrafine  oanicies  was  convincing  Simnar  exoeri-- 
ments  were  retxirtea  muen  earner  oy  Tam  ana  co-worxers-  ana 
otners.'*  The  Smaiiev  'aser  vaporization/ supersonic  exoansion 
tecnniQue.  ana  oven  oasea  versions,  oroouce  coiiision-free  gas- 
onase  sammes  naving  emster  aensities  of  =iC'“  cm  ■  The  new 
tecnniaue  promises  to  allow  oroauction  oi  eas-onase  numoer 
oensities  exceeding  =10'-  ciusters/cm-  using  even  tne  most  re¬ 
fractory  metals. 

ExperuacBtal  Secoon 

.\lthough  our  oasic  metnod  for  LCVD  has  oeen  aesenoea 
earner,  an  extensive  aescnotion  of  our  new  anparatus  is  in 
oreoarauon.  Films  are  aetxjsited  ov  directing  a  senes  oi  masxea. 
um'ocusea.  «iO-mJ.  20-ns.  308-nm  .aser  ouises  i  Lamtxia  Pr.vsiK 
EMG  iOn  into  a  cnamcer  containing  an  organometaiiic  -.atxor 
ana  oossioiv  otner  gases.  The  laser  entrance  wmoow  ana  exit 
*inaow  are  me  suostrates.  or  otner  coiects  car.  oe  oiacea  in  t.oe 
ceil  to  serve  as  suostrates  ~nc  laser  mav  nr  nia\  not  contact  me 
suostrate  ana  me  gas  cnase  mav  oe  flowing  or  stagmant  Aimougr. 
tne  rate  of  film  growtn  is  maximizea  wnere  tne  suostrates  are 
.rraaiateo.  mere  is  aetxisition  of  oanicuiate  material  wnica.  ce- 
oenamg  on  conaitions.  can  oe  aeteaea  in  stagnant  ceoosition  ceiis 
over  long  penoas  of  time. 

The  organometaiiic  precursors  emoioseo  in  tne  current  siua\ 
were  aiivicyciooeniaaienvioiatinum--  ana  trimetnMimetr.-..- 
cyciooentaaienyi  (platinum. Eacn  orecursor  nas  a  roorr- 


n3)  For  an  overview  oi  LCVI).  see  lor  examrie  Baueric.  D  C'.emicsi 
Procasinrwi/t  Laserr.iBnrtier  Berlin.  1986.  Sonnaer  senes  in  Matenais 
Science.  Voi.  I.  For  a  oiamm  oi  our  simoie  LCV  D  aooaraius  see  Roones 
D  1  .Negroui.  D..  Bvassee.  T .  Mactro.  D  .  Vasiag.  B  .  Cbaixen.  J  e.ef- 
irocnem  Soc.  1990.  1S7  1I62-I166  See  aiso  Caaixen.  j  bS  Paien: 
4  971.853. 

(14)  Koniitz.  L.  V  .  Sbux.  D  K .  Chen.  Y  J  Wimsms  .R  S  .  Zi.-.x..  ^ 
Appl.  Phvs.  Utt.  19M.  53  1705 

1 15)  Porter.  J.  D  .  Heiier.  .^  .  .^sones.  D  E.  .'<aiure  1985.  3.'J.  sow— .n" 
Heller.  A.  Science  19*4.  ;;3.  '.  Ul-i  iws 

1 16)  Das.  P.i  .Menu.  H  J  Phvs  Cnem  1985  39  wogp-wog- 
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509-516 
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(20)  .Mann.  B.  E.Shaw.  s  L .  Snaw  C  3  Chem  .yoc  a  1971. 

21)  Xue.  Z.1  Sirous.  .M  j  .  Snun.  D  K  .  r..~.ooier.  u  3  ,  .o.aesz.  ri 
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Figure  2  Transmission  electron  micrograoh  of  free-stanaing  niaiinum 
films  anenored  oirectiv  onto  cooper  grids.  Noduies  are  inoicateo  ov 
arrows 


Figure  3.  Transmission  eiearon  micrograoh  of  one  of  me  r.ooules  at 
.ngoer  magnification  One  cluster  is  circled  to  maicate  one  oiar.eter  usee 
to  produce  t.ne  log-normai  ciot. 


temoerature  vaoor  oressurc  of  >30  ano  =44  mTorr.  rssoectiveis 
The  films  used  in  tnis  stuov  were  aeoosiiea  oser  40  min  using 
iZOOO  laser  ouises.  wun  tne  grid  in  contact  wun  me  laser  oeatr. 
ana  witn  a  stagnant  =  -I  Torr  total  oressurt.  TEM  ana  electron 
aiffracuon  data  was  ooiamed  usme  a  J'EOL  i  JEM  '  4,  |  irstrumer.t 
ana  tne  5E.M  was  ootaineo  using  a  Pcritin-E.msr  .^KI  602 
Scanning  .Auger  .Muiticrooe. 

Results 

Figure  i  snows  a  SEM  of  a  film  dcoosuea  on  a  cuar.z  winaow 
These  films  nave  cten  acscricto  in  detail  t.cc  context  c: 
'transoarent  metai"  eicctrodcs.  -  Free-standing  LCVD  ciatmuir. 
films  anenored  onto  a  standard  cooper  TEM  grio  can  cc  seen  in 
Figure  2  at  X1500  magnification.  One  of  those  films  :s  snown 
at  higher  magnification  ix  149000)  in  Figure  3  The  clearer, 
diffraction  Dattcm  cnaractenstic  of  that  oarticuiar  fnm  contains 
reflections"  from  oni\  oiatinum.  manifesting  a  Qistncuiion  o: 
planes  and  cluster  sizes.  The  coexistence  of  cermm  oeroenaicuiar 
oianes  reouircs  tnat  me  clusters  not  nave  muc.n  mter.or  vom 
volume. 

.At  hignest  magnification  in  the  TEM.  daric  regions  navTng  me 
appearance  of  gioouiar  Clusters  can  oe  seen  with  cr.gmer  regions 
in  oetween.  As  suggested  by  me  examtjie  in  tne  oicture.  mese 
darx  regions  can  oe  aoDroximated  as  circular  ana  a  Cistnoution 
of  cluster  diameters  ootamea.  The  distnbution  corrtstxinaing  to 
the  oarticuiar  film  in  Figure  3  is  snown  in  a  lOg-normai  mot  ;r. 
Figure  4  To  ootain  tne  nistogram  snown  in  Figure  ;.  ail  me 
Clusters  wnicn  couic  ce  cieariv  ciscerneo  from  Fizure  i  were 
nciudca. 


52'  \STM  \-r.a\  i-cwcer  uata.  r.ie  No  4.i'.8fl2 
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Flfurc  4  T'>  oicai  tog-nortnai  oiou  ui  cluster  distributions  oroauceo  bv 
T.ost  Known  metnoos  are  taaen  from  reierenees  indicatea:  Xe  distnbu- 
..on-*  orooucea  bv  simoie  noaaie  beam  espaosion.  Hg  distnbution- 
srooucea  ov  nyond  oven/exoansion  metbod.  Pt  clusters  eroduced  using 
.aser  cnmistrv  oi  organomeuUics.-^  Al  clusters  produced  by  evaponuon 
method-  ana  also  tvpieal  of  sintering  method  results.  Nb.  Cu.  and  Al 
(loweri  Clusters*-*  oroauceo  using  laser  vaoonjatwn/expansion  methoa. 
For  she  siot  corresoonoing  to  ciusten  oroaucea  using  the  evaporation 
methoa.  a  fitted  line  from  tne  literature*  is  also  shown. 


:■  :i  <1  u  u  ’<  ts  M  IK  in  in  i«  iw  i«i  .m  — , - , 

;2ii  »  u  u  iKiswi  4«  uemmiimwiiraoraa  mmmt  uim 

Figure  5.  Histogram  snowing  typical  platinum  cluster  size  distribution 
proouceo  using  user  cnemistrv  of  organomeuilics  for  one  iree-sunaing 
film  Lsing  volume  of  sshere  consistent  with  diameters  shown  and 
censiiv  of  euih  platinum,  the  approximate  number  of  atoms  in  eacn 
Cluster  IS  given. 

Disctissioo 

Granovist  and  Buhrman^  onginaily  applied  the  log-normal 
distnbuiion  to  differentiate  between  cluster  size  disinbuuons 
proouceo  by  a  coalescence  growth  mecnanism  and  those  proauced 
by  other  mechanisms  sucn  as  Ostwald  ripening.  One  cluster 
distribution  typical  of  those  produced  by  our  method,  one  typical 
of  those  oDtained  using  standard  sintering  and  evaporation 
metnods.*  one  tyoicai  of  all  thosc*-^  produced  using  the  Smalley 
method.-*  one  proouced  using  an  expansion /oven  method.--  and 


■23)  In  ladition  lo  'nose  in  ret  4  see:  .Manin.  T.  P..  Bergmann.  T.. 
Gohlich.  H  .  Lanae.  r  J  Phvs  Chem.  1991.  95.  6421-6429. 

241  Dieiz.  T.  G  .  Ouncan.  .M  ii..  Powers.  D.  E.i  Smailev.  R.  E.  J.  Chtm 
Phvt.  1981.  05'! 


one  proouced  using  a  suoersonic  expansion  of  Xe^  are  snown 
plotted  togeiner  in  Figure  4.  These  oistnbutions  span  a  consid¬ 
erable  range  of  diameters  wnich  we  oeiieve  is  a  meuure  of  the 
number  aensity  of  atoms  present  before  coalescence  ana  their 
propensity.  i.e..  cross  secuon.  to  coalesce.  All  distnbutions  taken 
from  tne  literature  wnich  were  proouceo  using  supersonic  ex¬ 
pansions.  as  well  as  ail  those  we  have  proouced  to  date  using 
LCVD.  reveal  nonlinear  iog-normat  plots  for  large  cluster  sues, 
indicaung  a  deficiency  of  larger  clusters  compared  to  what  is 
expecteo  based  on  the  iog-normai  distribution.  Since  the  log¬ 
normal  distribution  results  from  a  statistical  analysis  of  the  ev¬ 
olution  of  the  cluster  size  oistnbuuon.  the  observed  deviation  could 
be  a  consequence  of  at  least  a  few  oetermmuuc  factors. 

First,  we  must  point  out  that  ail  of  the  gas-phase  cluster  dis¬ 
tributions  were  obuined  using  time-of-Hight  mau  spectrometry 
(TOP).  Since  TOF  gives  only  the  number  of  atoms  directly,  a 
cluster  diameter  was  obtained  by  aoding  the  volumes  of  the  in¬ 
dividual  atoms  and  then  caicuiaung  the  diameter  corresponding 
to  a  suigie  sphere  having  this  toul  volume.  The  individuai  atom 
volumes*'  used  corresponoed  to  raoii  obuineo  from  X-ray  dif¬ 
fraction  studies  of  bulk  cystalline  meuls.  and  so  packing  artifacts 
should  be  minimized.  We  are  implicitly  assuming  that  the  dusters 
are  essenually  filled,  but  more  woric  neeos  to  be  done  to  esublish 
this  assumption  as  a  definite  fact.  Regardless  of  this,  if  the 
percentage  of  void  volume  is  independent  of  the  number  of  atoms 
in  the  cluster,  the  shaoe  of  the  plots  wul  be  unaffected.  In  aauai 
fact,  using  these  assumptions  ana  appropriate  scaling,  a  careful 
statistical  comparison  of  the  disinoutions  produced  by  expansions 
and  laser  chemistry  of  organometailics  snows  that  they  are 
idenucai  within  experimental  error. 

Mass  spectrometnc  determinations  of  c'  ister  distributions 
always  present  the  possibility  tnat  a  systematic  artifact  exists 
because  clusters  can  fragment  curing  ionization.  A  vanety  of 
schemes  nave  been  emoioyeo  to  minimize  the  effect  of  this  po¬ 
tential  artifact  mduding  retieaion  TOF  mass  spectrometry^  and 
thredioid  photoionization  with  vacuum  UV  lasers.  Nevenheless 
the  pottibiiity  always  exists  that  some  artifact  could  exist  which 
would  incorrectly  estimate  the  numoer  of  clusters  presenL  in  our 
case,  the  opposite  possibility  exists.  Since  the  clusters  come  into 
physical  conuct  before  we  estimate  the  distribuuon.  the  clusters 
could  coalesce  thus  overestimating  the  number  of  larger  clusters 
present  compared  to  the  nascent  gas-ohase  distnbution  produced. 
The  opserved  deviation  from  a  perfect  log-normal  distnbution 
suggests  that  just  the  opposite  is  true.  A  variety  of  reasons  in¬ 
volving  the  subility  of  larger  clusters  are  also  plausible.  For 
example,  the  panicular  LCVD  films  used  in  this  study  were 
produceo  such  that  the  laser  contacts  the  substrate  dunng  de- 
pQsiuon.  Thus  the  distribution  of  cluster  sizes  could  be  a  measure 
of  the  propensity  of  cenain  cluster  sizes  to  survive  repeateo  ex¬ 
posure  to  the  laser. 

We  also  note  that  the  artifact  cor  .  to  our  LCVD  and  the 
Smailey/  expansion  produced  distnbi.  .  could  be  caused  by  the 
reiauvely  shon  penod  of  time  ounng  which  coalescence  growth 
could  take  place.  This  wouid  leaa  to  a  deficiency  in  larger  cluster 
sizes  relative  to  processes  which  are  not  kinetically  quenched.  The 
organometailic  pressure  is  at  least  several  orders  of  magmtude 
greater  than  the  room-temperature  vapor  pressure  of  bulk  plat¬ 
inum.  When  the  laser  pulse  passes  through,  the  vapr-  is  convened 
to  atoms  and  fragmented  molecules.  Since  the  t  fcctive  tem¬ 
perature  of  the  laser  produced  cloud  is  in  the  range  of  10^  K.  if 
only  because  that  wouid  be  the  temperature  needed  to  produce 
an  equivalent  pressure  of  platinum  atoms  surting  from  bulk 
platinum,  and  the  coalescence  occurs  in  the  time  scale, 

the  cooling  rate  associated  with  LCVD  is  in  the  range  10*-10* 
K/s.  Because  of  the  similarity  between  our  LCVD  log-normal 
plots  ana  all  the  others,  the  data  ao  suppon  the  idea  that  the  cluster 


(25)  Haberland.  H..  Kommcter.  H..  Laniotcn.  H.:  OschwxKL  M.:  Tanner. 
G.  J.  Chtm.  Soc..  Faradav  Trans.  1990.  S6.  2473-2481. 

|26)  Haberlana.  H..  Kolar.  T.  Reiners.  T  Phvs.  Rtv.  Utt.  1989.  6S. 
::i9-i22:. 

1 27)  Mahan,  fl.  UiuLtrsitv  Chtmistrw  2na  ed  .  Adduon-Weilev:  London. 
i969: p  564 
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oistnbution  we  ootain  for  our  LCVD  films  is  aeiermined  by  the 
orooerties  oi  gas-ooase  clusters  oroouceo  using  laser  cnemistry 
01  organometailics. 

To  attain  the  numoer  densities  needed  to  oroouce  suostantiai 
quanuues  of  ga$*paasc  Clusters  tor  syntnesis  ana  reactivity  stuoies 
or  for  film  detxBition.  the  vacuum  cnamber  or  suostrate  must  be 
in  contact  with  a  relatively  high  ambient  gas  pressure.  Any 
prevtousiv  well-charactenzeo  suostrate  is  ouicuy  contaminated. 
High  temperatures  must  oe  avoided  for  ail  surfaces  to  avoid 
thermal  backgrouno  chemistry.  The  rate  of  LCVD  is  limited  by 
me  *aie  of  mass  transport  from  the  gas/ mobile  phase  to  the 
growing  film  and  by  the  gas/mobiie  ohase  cnemistrv  whicn  occurs 
ocfore  the  gas  pnase  conaenses  on  tne  substrate.  Simiiariy.  film 
moronoiogy  is  also  a  oirea  conseouencc  of  the  aiffusion-iimiied 
deposition  conditions.^ 

Laser  chemistry  of  organometailics  is  “nonUnear"  in  the  sense 
that  (1)  multiphoton  processes  can  be  useo  to  generate  the 
rcacunts  for  suoscquent  cnemistry  and  also  1 21  because  the  net 
cnemistry  involves  reactions  oetween  products  of  earlier  suges 

:S)  In  addition  lo  a  variety  of  fractal  trowin  scnetnes  i see  for  eaamoiei. 
Zuntofen.  G  .  Bluntcn.  A..  Klaftcr.  J  .\ew  J  Chtm  1990,  /<.  189-196  and 
referenco  tnereini.  we  nave  louno  me  loiiowing  reierence  uieiul:  Mader.  S 
Th:n  Solid  Ftims  1964  T.  3J— II 


with  those  of  the  later  stages.  Using  FT-IR  sneoroscopy  in 
reflectance  and  transmission,  we  nave  shown^  in  the  nrtsent  case 
that  at  least  some  of  the  ailyl  ano  cyclopeniaoienyi  ligands  are 
incoroorated  in  the  film  as  intact  entities.  In  a  previous  paper, 
we  demonstrated  how  to  remove  tnese  imounties  so  as  to  ontain 
nearly  bulk  platinum  electrode  characteristics  from  transparent 
plaunum  films.  Laser  chermstry  of  organometailics  would  seem 
to  be  a  unipuc  and  novel  type  of  synthetic  chemistry.^® 

CoDclttsioos 

Cluster  films  of  meuls  can  be  croouced  using  laser  chemistry 
of  organomeullics.  The  log-normai  distnbution  can  oe  used  to 
categonze  gas-phase  cluster  distributions  produced  by  different 
synthetic  methods. 

Ackmwledfmeia.  We  gratefully  acknowledge  suppon  for  this 
rcsearcn  bv  the  donors  of  the  Petroleum  Research  Fund,  ad¬ 
ministered  by  the  American  Chemical  Society,  ana  by  Rome 
Laboratory  (AFOSR). 
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1 30)  There  vCTv  well  miani  Be  a  connection  oetween  tne  tvoe  oi  cnemmrv 
we  descrioe  in  tnis  article  ano  me  sonocnemisiiv  oesenoea  by  Susiick.  K. 
\aiute  1991.  JSJ.  414-416 
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abstract 

We  present  the  nonlinear  tnterfacc  opticai  switch  in  the  context  synthesized 

■;^ith  rccara  to  matenais  design  and  deveiopment  of  swSihave  considerable  potenual  for  tnecung 

■Kini?  'aser  cncrnisirv  of  orcanometallics  is  presented.  EinbodimcnK  ot  this  ype 

many  of  the  required  design  cnicna  for  practical  implcmcntauon  of  digital  opucal  computing 

IVTRnnUCTIQN 

wc  are  developing  and  evoluaung  opucal  switches  for 

design  cnicna.  Optical  switching  based  on  the  st^called  nonhnear  We  desenbe  recent  work  on 

embooiment  of  that  phenomenon  which  fullfills  fijnjj  vwe^^omc  background  concermng  the 

the  evaiuauon  of  nonhnear  intcnacc  opucal  switchcstNlOS)  based  o  cwiich  in  the  context  of  digital  opucal 

phenomenology  of  these  switches  and  films  and  the  concept  o  a  ml  maSnals 

Impmine.  We  then  desenoe  the  embodiment  wc  are  stnving  to  fabneam  whi A  involve  a^su^^^ 
chemistry^  Finally,  wc  briefly  describe  current  efforts  toward  physical  evaiuauon  of  the  films  as  s 

l^j^^tCOROllND-NQlS 

Fiuurc  1  gives  the  basic  idea  of  an  NOIS.  Light  impinging  on  an  intcrfxe 
rcfracuon  is' partly 'teflcctcd  and  pardy  tratismiucd  by  the  mtcri^c.  The  jf  of  die  media  is 

transimitca  ore  determined  by  the  difference  in  '"J®*  ^  jg  prcinu  It  then  becomes  possible  opucally.  to 

phoiorcfracuvc.  i.c.  us  index  of  refraction  depends  on  .hot^hv  control  ootical  switchine  bv  conirolline  the  amount  oi 

equalize  the  indices  of  rcfracuon  on  eiihcr  side  ol  the  imcrfacc  ®at^^  o'n  a  transparent  substrate. 

Iicht  rcilcctcd  at  the  interlace.  .A  switch  could  be  composed  of  a  film  o  P  .  provided  one  knows  the  opucal 

Sianoard  Fresnei  coefficients  adequately  model  the  ob«rved  optical  performance  ol  such  films  pioviaea 

properties  of  the  substrate,  lilm.  and  air. 

n.c opuc:U pr.pcmcs p.  Ou: plm subs»a,c havp .j .x=  Wf  “ ti” 
by  incident  iighi.  Such  a  device  will  never  be  a  bistable  IfSJm  a  nonresonam  response,  the  response 

swixh  would  depend  of  the  icr.iporai  propcrucs  oi  the  macnal(s)  ^  ^  properucs  would  all  depend 

couid  be  subpicosccond  in  both  nse  and  fall.  Similarly,  the  power,  sj^trai,  spati^and  ^imh 

on  the  maicriai  propcrucs.  Arcbcteciural  considcrauon  of  this  type  of  ^  ^ airo^  i'Shi  fmm 

general  conclusion  being  that  the  NOIS  considerable  ^  inii^xe,  iiTs  possible  to  consintct  any 

one  source  lo  control  the  amount  of  light  from  a  different  source  being  mfl 

kind  of  logical  funcuon. 

S  ince  b,e  ondnal  propoHl  of  Ac  NOIS  by  Kpplap.  aid  Ihp  later  prof  ol  J”* 

the  ondctlving  phenomenon  of  ihc  NIOS  has  been  used  to  a  variety  of  galliiint  and  asenic  tn  MBE 

phenomenon  they  dubbed 'rcflcciancc-diffcrcncc  spectroscopy  to  monitor  monolayer  deposmon  g  nthc«  have 

appitcddons.  Henon  and  coworkentS  have  used  a  loohnique  they  call  -Btowstet  Angle  Mtoroscopy  .  Yananoio 
used  rcflccuon-absorptton  spectrometry  for  similar  applicauons. 
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these  reflections  arc 


5=difference  between  static  indices  of 
refraction  for  media  2  and  3. 

A=coefficient  of  optical  nonlinearity 

Figure  1 :  Interaction  of  light  with  standard  three  phase  optical  system  in  which  the  middle  phase  is  photorefractive 

In  all  cases,  it  is  clear  that  a  change  in  refractive  index  at  an  interface  is  easily  detectable  even  for  monlayer  coverages  of 
some  materials  on  a  substrate.  It  is  also  clear  that  two  particular  configurations  of  incident  light  and  substrate/switch  have  definite 
advantages  for  maximizing  the  amount  of  light  which  can  be  switched.  If  the  ’’data"  light  is  incident  on  the  film/substrate  at  or 
near  either.  1)  Brewster  s  angle  or  2)  the  critical  angle  for  total  internal  reflectance,  then  the  effect  of  a  nonbneaniy  in  the  refractive 
index  of  the  film  on  the  amount  of  light  reflected  is  maximized.  In  pniKipic  this  conflgurauon  can  give  switched  light  with  zero 
background. 

Of  the  many  design  criteria  which  must  be  met.  a  few  would  seem  to  be  essential.  For  practical  purposes,  minimizauon 
of  power  dissipauon  and  switching  energy  is  a  must  Spectral  characteristics  allowing  integrauon  of  NOISs  with  SEEDs  and  other 
GaAs  based  devices^  would  be  advantageous.  Durability  is  a  must.  For  the  most  pan.  thicknesses  can  be  adiusuid  to  enhance 
NOIS  effects  only  by  uulizmg  imencitnce  effects.  Resonances  tend  to  affect  temporal  characiensucs  adverseiy.  .Slcul  oxide 
photorefracuves.  e.g.  niobates  and  utanates.  would  seem  to  ehibit  adequau;  optic^  nonlinearity  for  many  purposes  provided  they 
can  be  fabncaied  with  thicknesses  below  =200  nm.  This  thickness  would  tend  to  be  UX)  thin  to  allow  Fabry-Pcroi  resonance 
effects  m  the  GaAs  spectral  region.  These  and  other  similar  considcrauons  are  suaighiforward  to  apply  m  ail  switches. 

On  the  other  hand,  it  is  a  specific  characiensuc  of  the  .NIOS  that  the  iniual  difference  in  the  index  of  refraction  between 
the  film  and  substrate  should  not  be  too  large.  The  original  proof  of  principle  demonstrauons  uuiized  effects  where  the  net 
photomduced  index  change  was  only  =0.03.  The  most  dense  and  easily  obtained  glasses  only  have  uidices  as  high  as  =1.7-1. 8. 
Thus  the  standard  metal  oxide  phoiorefractives.  which  have  indices  which  arc  effectively  =2.2,  do  not  match  the  properties  of 
commercial  grade  quartz =1.S6  with  respea  to  NOIS  fabrication.  In  actual  fact,  many  good  candidates  for  the  photorenactive  film 
have  the  disadvantage  that  their  typical  index  of  refraction  is  rather  different  from  convenient  substrates.  We  can  envision  wanting 
to  use  substrates  as  diverse  as  GaAs.  Ge.  quartz,  or  even  optical  plastics.  We  can  conceive  of  advantages  m  being  able  to  deposit 
switthes.  films  directly  on  optical  fibers.  In  most  cases,  low  temperature  methods  for  pauemed  deposition  of  refractory  mcml  and 
metal  oxide  films  do  not  exist. 

Producing  materials  in  thin  films  simuiuincousiy  displaying  large  optical  noniineantics.  variable  index  of  refraction  and  - 
high  damage  thresholds  has  been  predicted  to  be  achcivable  using  clustcrs/ultrafine  panicle  based  matcnals.  .Many^'^*^  have  used 
analytic  formalism  and  numerical  simulations  to  show  Utat  clusters  and  uitrafine  particles  of  metals,  metal  oxides  and  metal-metal, 
oxide  composites  should  have  optical  noniincaritics  orders  of  magnitude  larger  than  what  is  known  for  bulk  samples  of  the  same 
materials  not  having  such  microscopic  physical  momhoiogy.  For  the  remainder  of  this  paper,  we  dcmonsuaic  mat  we  have 
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produced  films  oi  metal  and  metal  oxide  clusters.  These  films  also  have  considerable  flexibility  in  the  bulk  indices  of  refraction 
which  they  display.  Wc  then  describe  our  earliest  eifons  at  evaluating  these  films  as  optical  switches. 

LASER  CHEMISTRY  QF  ORGANOMETALLICS 

Metal/piatinum  cluster  films 


Clusters  of  atoms  and  molecules  span  the  transition  from  quantum  mechanical  to  classical  objects.  Clusters  and 
ultiafine  parucles  have  been  synthesized^  using  sintering  and  heated  wire  evaporation,  laser  vaporization  combined  with  a 
supersonic  expansion^^.  and  related  methods^'^  which  utilize  ovens.  We  show  that  gas  phase  organometallics  can  be  photolyzed 
using  pulsed  UV-visible  lasers  to  initiate  synthesis  of  metal  c'asiers.  We  use  the  log-normal  distribution  function^  ^’^2,15  n, 
compare  this  new  method  of  cluster  formauon  to  the  other  methods.  Ouster  size  distributions  produced  using  this  new  method 
bear  a  remarkable  sunilaricy  to  those  produced  usuig  the  nozzle  beam  expansioa  methods.  Although  there  is  some  deviation  from 
this  distnbution.  both  methods  would  seem  to  involve  coalescence  growth^^  as  opposed  to  Ostwald  ripening^^.  Laser  chemistry 
allows  synthesis  of  gas  phase  metal  clusters  because  of  the  very  high  pressures  of  metal  atoms  attainable  using  muitiphoton 
dissociauon  of  organometallics. 


diagram  of  the  basic  apparatus  used  to  penorm  LCVD  has  been  presented  elsewhere^^.  As  can  be  seen  in  Figure  2, 
platinum  films  >i50A  thick  and  exhibiung  >70^&  transmittance  across  the  enure  UV-visible  spectrum  can  be  synthesized  using 
laser  chemical  vapor  deposition! LCVD1  ‘ Such  plaunum  films  have  been  called  ’transparem'  mctals^^  because  they 
simultaneously  exnibit  metallic  conducuvaty  and  opucal  transparency.  The  transparency  is  thought  to  be  a  direct  consequence  of 
lO'^  nanometer  scaie  morphology  shown  using  scannmg  electron  microscopy(SEM)  in  Figure  3.  Because  of  the  presence  of  the 
clusters,  and  the  uiffusion  controlled  deposition  conditions,  voids  are  present  in  the  films  through  which  incident  light  is 
channeled.  Smooin  contiguous  plaunum  films  become  opaque^^  at  *310  A  average  thickness.  The  clusters  are  thought  to  be 
highly  polarizable*^  thus  forcing  incident  electric  fields  into  the  voids. 


Figure  2;  Photograph  of  '•jansparent '  platinum  film  on  a  quartz  substrate  which  is  resting  on  a  book  page 
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Figure  3:  SEM  of  platinum  film  on  quartz  substrate.  Daric  regions  are  voids  which  extend  to  substrate. 

Light  regions  are  nearly  pure  platinum. 
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PuretsK\'  and  Demyanenko^  rcrxjned  over  a  year  ago  that  nanosecond  excimer  laser  pulses  could  be  used  to  produce 
clouds  of  metal  clusters  and  ultiafine  pn:  Jcles  from  gas  phase  metal  carbonyls.  Their  estimate  on  the  size  and  shape  distribuuon 
was  based  on  mobility  measurements  m  which  the  number  densities  and  temperaujres  of  the  populations  produced  could  not  be 
known  mdependentiy.  Nevertheless,  their  evidence  for  the  existence  of  clusters  and  uitrafine  parucles  was  convincing.  Similar 
experiments  were  reported  much  earlier  by  Tam  and  coworkers“^  and  othcts“^.  The  Smalley  laser  vaporizauon/supersonic 
expansion  techmque.  imd  oven  based  versions,  produce  collision-free  gas  phase  samples  having  cluster  densiues  of =10^®  cm'- . 
The  new  techmque  promises  to  allow  production  of  gas  phase  number  densities  exceeding  =  10*^  clusters/cm-^  using  even  the  most 
refractory  metals. 


The  organometallic  precursors  employed  in  the  current  study  were  ally!  cyclopcntadienyl  platmum^^  and  trimeihyl 
methylcyclopentadienyl  piatinum^^.  Free  standing  platinum  films  anchored  onto  a  standard  copper  TEM  grid  otn  be  seen  in 
Figure  4  at  high  magnificauon(x  149,000).  The  electron  diffracuon  pattern  characteristic  of  that  particular  film  contains 
reflections^^  from  only  plaunum  manifesting  a  broad  distribution  of  planes.  At  highest  magnification,  dark  regions  having  the 
appearance  of  globular  clusurrs  4m  be  seen  with  bnghtcr  regions  in  between.  These  dark  regions  can  be  approximated  as  circular 
and  a  distnbuuon  of  cluster  diameters  obtamed.  The  distnbuuon  corresponding  to  the  particular  film  is  shown  in  Figure  5.  We 
cannot  say  yet  whether  the  clusters  are  hollow  or  solid. 


Figure  TE.M  of  platinum  cluster  film  showing  diameter  used  to  construct  histogram  of  cluster  sizes 
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Figure  i: 


Histogram  of  cluster  sizes  oroduced  in  uansparent  plaunum  film. 


Granqvist  and  Buhrman^  onginaily  applied  the  log-normal  distnbuuon  to  diffcrcnuaic  between  eiustcr  size 
distnbuuons  produced  by  a  coalescence  growin  mechanism  and  those  produced  by  other  mechanisms  such  as  Ostwald  npcning. 
One  cluster  distnbuuon  typi.al  of  those  produced  by  our  mcinod.  one  typical  of  those  obtamed  usinc  standara  sintenne  and 
evaporation  metnodsl-.  me  typical  of  all  those*-—®  proaucca  using  the  Smalley  method,  one  oroduced  us:n;  an  expansion  oven 
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method^ ' .  and  one  produced  using  a  supersonic  expansion  of  arc  shown  plotted  together  in  Figure  6.  For  ease  in  viewing. 
Figure  6  shows  a  senes  of  log-noimai  expanded  sc^e  plots  cortesponding  to  di^butions  produced  using  expansions.  Ail  these 
distnbuuons  have  very  similarly  shaped  plots  albeit  the  diameters  span  a  considerable  range.  We  believe  the  range  spanned  is  a 
measure  of  the  number  density  of  metal  atoms  present  before  coalescence.  All  distributions  that  we  have  taken  from  the  literature 
which  were  produced  using  supersonic  expansions,  as  well  as  ail  those  we  have  produced  to  date  using  LCVD,  are  nonlinear  for 
large  cluster  sizes  indicating  a  deficiency  of  larger  clusters  compared  to  what  is  expected  based  on  the  log-normal  distribution.  All 
of  the  gas  phase  cluster  distnbuuons  were  obtained  using  time  of  flight  mass  spectrometryCFOF).  Since  TOP  only  gives  the 
number  of  atoms  directly,  a  cluster  diameter  was  obtamed  by  adding  the  volumes  of  the  individual  atoms  and  then  calculating  the 
diameter  corresonoing  to  a  single  sphere  having  this  total  volume.  The  individual  atom  volumes^^  used  correspondeo  to  radii 
obtainea  from  x-ray  diffracuon  studies  of  bulk  cystalline  metals  and  so  packing  artifacts  should  be  minimized.  Regardless  of  this, 
the  shape  of  the  piots  will  be  unaffected. 
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Figure  6:  Log-normal  plots  of  cluster  size  distributions  produced  by  all  known  methods. 

Mass  specoometne  dcterminauons  of  cluster  disuibutions  always  present  the  possibility  that  a  systematic  artifact  exists 
because  clusters  can  fragment  during  ionizauon.  A  variety  of  schemes  have  been  employed  to  minimize  the  effect  of  this  potential 
artifact  including  reflectron  TOF  mass  speciromcoy  ^^-26  and  threshold  phetoionization  with  VUV  lasers.  Nevenheiess  the 
possibility  always  exists  that  some  aitifact  could  exist  which  would  incorrectly  estimate  the  number  of  smaller  clusters  present.  In 
our  case,  ihc  ooposiie  possibility  exists.  Since  the  clusters  come  into  physical  contact  before  we  estimate  the  distnbution,  the 
clusters  could  coalesce  thus  over-esumaung  die  number  of  larger  clusters  present  compared  to  the  nascent  gas  phase  distnbution 
produced.  The  ooserved  dcviauon  from  a  pcncci  log-normal  distribution  suggests  that  just  the  opposite  is  true.  A  vanety  of. 
reasons  involving  the  suibiiity  of  larger  clusters  are  also  plausible.  In  many  cases  LCVD  films  are  produced  such  that  die  laser 
ccntacts  die  suosirate  during  deposition.  The  dtstnbuuon  of  cluster  sizes  could  be  a  measure  of  the  propensity  of  certain  cluster 
Mzes  to  survive  repeated  exposure  to  the  laser.  Overall,  we  believe  that  all  the  data  suggests  that  the  cluster  disuibuuon  we  obtain 
for  our  LCVD  films  is  mostly  determined  by  the  fact  that  gas  phase  clusters  are  produced  i"''  'g  laser  chemistry  of 
organomeiallics. 

To  auain  the  number  dcnsiues  needed  to  produce  substantial  quantities  of  gas  phase  clusters  for  synthesis  and  reacuviiy 
studies  or  for  film  dcposiuon.  the  vacuum  chamber  or  substrate  must  be  in  contact  with  a  relauvely  high  ambient  gas  pressure. 
Any  previously  well  characterized  substrate  is  quickly  contaminated.  High  temperatures  must  be  avoided  for  all  sunaces  to  avoid 
ihcrmai  background  chemistry.  The  rate  of  LCVD  is  limited  by  the  rate  of  mass  uansport  from  the  gas/mobile  phase  to  the 
growing  film  and  by  the  gas/mobile  phase  chemistry  which  occurs  before  the  gas  pha%  condenses  on  the  substrate.  Similarly, 
film  morphology  is  also  a  direct  consequence  of  the  diffusion  limited  deposition  conditions'^.  Laser  chemistry  of  organomeiallics 
IS  noniuiear  in  the  sense  that.  1)  multiphoton  processes  can  be  used  to  generate  the  reactants  for  subsequent  chemisoy  and  also  2) 
because  the  net  chemistry  involves  reacuons  between  products  of  earlier  stages  with  those  of  the  later  stages.  Laser  chemistry  of 
organomeiallics  would  seem  to  be  a  unique  and  novel  type  of  synthetic  chemistry. 

Metal  and  metal  oxide  cluster  films 

Tungsten  hexacarbonyi  was  punfied  by  sublimauon  before  being  loaded  into  a  specially  designed  all  stainless  steel 
gas/reactant  delivery  system.  We  have  used  a  variety  of  precursors  and  the  conditions  statiul  here  are  typical.  This  system  uulizes  a 
molecular  sieve  drying  tube  to  remove  water  from  whatever  earner  gas  is  used  to  entrain  the  orgaontungsten  precuisor.  A  set  of 
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NIKS  capacitance  manometers  and  isolable  chambers  of  known  volume  were  used  to  measure  paiual  and  total  pressures  and  flow 
rates  m  the  delivery  system  and  in  the  depostuon  cell.  Although  this  apparauis  will  be  desenbed  in  greater  detail  later-^  ^ .  for 
present  purposes  it  suffices  to  point  out  that,  uulizing  a  series  of  micrometer  valves  and  lengths  of  tubing  with  vanous  uitemal 
diameters,  the  total  pressure,  flow  mte.  gas  stream  composition  and  temperature  could  each  be  independently  adjusted. 

Figure  7a  shows  a  TEM  of  a  free  standing  tungsten  film  deposited  by  LCVD  directly  onto  a  TEM  grid  at  xl  13,000 
magnification;  globular  clusters  are  clearly  visible.  Figure  7b  shows  an  electron  diffraction  pattern  obiamed  from  th: 
conglomeration  of  clusters  imaged  in  7a).  As  is  typical  for  diffracuon  patterns  obtained  from  many  such  conglonierauons.  the  near 
coalescence  of  the  diffracuon  rings  into  spots  presents  an  tnteresung  comparison  with  the  results  of  Mader-^-  and  Aspnes.^^ 
Observauon  of  "implied’’  nags  is  consistent  with  the  idea  that  our  films  are  composed  by  cond  nsauon  of  clusters  of  varying 
sues.  The  spaemgs  between  the  rings  were  analyzed  and  only  interplanar  spacings  of  tungsten  are  evident-’'^.  These  spacings  would 
seem  to  be  characteristic  of  the  environment  tnside  the  clusters.  The  uingsten  clusters  are  produced  using  20  millitorr  of  tungsten 
hexacarbonyl  at  62'’C  with  argon  added  to  produce  a  total  pressure  of  70  mtorr  in  the  deposition  cell.  This  pressure  is  lower  than 
the  vapor  pressure  of  bulk  tungsten  hexacarbonyl  at  the  same  temperature  because  we  are  working  in  a  flowing  cell.  Figures  7c 
and  7d  show  essentially  the  same  data  obtained  for  tungsten  oxide  clusters.  These  clusters  were  deposited  using  the  same  partial 
pressure  of  tungsten  hexacarbonyl  but  with  the  rest  of  the  total  pressure  being  composed  using  Oa.  For  the  oxide  clusters,  the 
diffuse  quality  of  the  nngs  suggests  less  order  within  the  clusters  as  well  as  a  distribuuon  of  sizes.  Raman  spectra  of  films 
composed  of  these  clusters  have  extensive  structure  below  =»400  cm'^  but  absolutely  no  hint  of  the  well  known,  and  extremely 
snong  700-900  cm'  ^  features  indicauve  of  the  presence  of  WOg  octahedra.  .Auger  analysist  internally  cahbraicd  against  auihenuc 
’.V,  vV02  and  WO3)  of  these  oxide  films  reveals  an  average  W:0  stoichiometry  1:1.5  which  is  a  factor  of  =10  below  the  gas  pnasc 
rauo  present  dunng  LCVD.  The  film  W;0  ratio  vanes  widely  from  spot  to  spot  on  the  film  and  can  range  from  =  1:2.5  to  nearly 
1:1.  .Measurements  of  the  temperature  dependence  of  the  rcsisuvity  of  200  nm  thick  films  on  quartz  in  air  reveals  urevcrsiblc 
changes  occumng  at  temperatures  as  low  as  =  lOO'C.  The  resistivity  of  nascent  films,  which  arc  semiconductors,  exceeds  that  01 
poiycrystailinc  tungsute  films  although  the  implied  band  gap(.15  eV)  is  lypicaP^. 

The  single  most  important  aspect  of  all  the  materials  describe  above  is  that  the  bulk  indices  of  rcfracuon  can  be  chosen 
by  deposiuon  condiuons.  The  plaunum  films  typically  have  low  power  indices  of  refractionf6328A)  in  the  range  of  =2.0  comparco 
to  a  value  for  bulk  plaunum  of  =3.8.  Similarly,  ihc  index  of  refracuon  obtained  for  the  laser  deposited  tungsten  and  tungsten  oxide 
films  using  a  CW  HeNe  laser  range  from  nearly  1.0  to  2.2.  The  bulk  refracuve  mdex  for  sputtered  pclycrystalline  tungstate  films 
IS  in  me  range  of  2.3  to  2.5.  In  all  cases,  the  vanation  in  index  of  refracuon  in  easily  rationalized'*^  on  me  basts  of  the  effective 
medium  theory  and  the  void  volume  of  the  films.  Since  deposition  of  the  films  is  entirely  diffusion  controlled,  deposiuon 
condiuons  determine  the  void  volume  which  in  uim  affects  the  bulk  index  of  refraction.  As  detailed  above,  this  siiutauon  is 
exurmeiy  useful  for  engincenng  film  for  .NOIS  applications. 


Figure  7  TEM  and  electron  diffracuon  cnaracicrizauon  of  lungstenia.b)  and  tungsten  oxideic.d)  cluster  liims 
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QaUcaL  Switch  EYaluatiou 


Hvaiuauon  of  potential  switches  fabricated  using  films  of  the  above  matariak  is  currently  in  progress  and  so  only  the 
general  ideas  will  be  presented  here.  Two  configurauons  arc  used  as  embodiments  of  switches.  The  light  can  impinge  on  the  film 
and  then  me  suostrate  as  suggested  by  Figure  1.  In  all  cases,  the  reflections  &om  the  air-film  interface  cannot  be  separated  &om  the 
reilecuon  at  the  film-substrate  interface.  However,  careful  nearly  zero  backgrouixl  measurements  can  be  made  when  the  angle  of 
incidence  is  adjusted  to  be  near  the  effective  Brewster  angle  for  the  film-air  system.  Alternatively,  it  is  possible  to  proceed  with  an 
cxacuy  reversed  situauon.  In  this  case  the  light  enters  the  switch  horn  the  uncoaied  side  of  the  substrate  and  is  propagated  until  it 
encounters  the  tilm-substrate  interface.  The  angle  of  incidence  of  the  light  with  the  substrate  is  varied  until  the  cntical  angle  for 
lotai  imemai  reflection  for  the  tight  at  the  fUm-substrate  intert'ace  is  shelved.  In  this  case  the  petcemage  of  light  transmitted 
across  me  sabstrate-film-air  interface  is  measured  as  a  funcuon  of  incident  power.  This  latter  configuianon  is  also  a  nearly  zero 
backgrouna  measurement  and  in  practice  is  less  sensitive  to  photorefractive  effects  at  the  film-air  intenace. 

In  either  configuration,  the  starting  point  for  switch  evaluation  is  contained  in  Figure  8  which  shows  results  of  a 
measurement  of  me  percent  reflectance  of  the  film-substrate  combination  as  a  function  of  incident  angle.  The  film  is  composed  of 
the  tungsten  oxide  clusters  shown  above.  The  simplest  point  to  make  is  that  if  the  shape  of  such  a  curve  is  a  function  of  the 
power  01  me  incident  light  then  one  of  the  maten^  in  me  three  phase  system  is  photorefractive  and  switching  is  possible.  We 
have  oeen  engaged  in  measuremg  the  power  dependence  of  the  shapes  of  such  curves  at  a  variety  of  wavelengths.  We  have  been 
using  moae-iocked  5 14  nm  pulses  of = 100  psec  durauon  obtained  tom  an  argon  ion  although  measurements  at  different 
Aavcicnetns  will  be  conducted  soon.  Once  a  photorefracuve  effect  is  detected,  then  the  switch  can  be  evaluated  in  the  typical  pump 
prooc  memoo  in  wnich  a  puise  of  light  is  used  to  set-uo  me  photorefracuve  effect  and  a  later  pulse,  die  probc/data  amves  delayed 
10  manifest  me  oreseance  of  the  earlier  puise.  These  measurements  arc  the  starting  pomt  for  compieie  specnal.  spatial,  temporal 
ana  cnergeue  cvaiuauon  of  NOIS  devices. 
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Figure  x  Typical  power  reflected  from  a  tungsten  oxide  cluster  film  as  a  function  of  angle  of  incidence. 

Caatiuaiflaa 

Opucal  switches  brsed  on  nonlinear  mtcrfaces  have  considerable  promise  towards  meeting  the  myriad  of  design  criteria  for 
producing  devices  relevant  to  digital  opticla  cornpuung  applications.  Novd  materials  which  can  only  be  synthesized  using  laser 
chemistry  of  organometallics  have  a  number  of  unique  advantages  for  the  design  and  fabricaticHi  of  such  switches.  Switch 
cvaiuauon  is  proceeding  using  mcml  and  meial  oxide  cluster  films  which  have  been  predicted  to  be  highly  photorefractive. 
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We  present  the  nonlinear  interface  optical  switch  in  the 
context  of  digital  optical  computing  applications.  Implications 
with  regard  to  materials  design  and  development  zmd  switch 
evaluation  are  discussed.  A  specific  class  of  materials 
synthesized  using  laser  chemistry  of  organometallics  is  presented. 
Srabodiments  of  this  type  of  switch  have  considerable  potential  for 
meeting  many  of  the  required  design  criteria  for  practical 
Ltplamentation  of  digital  optical  computing  devices. 

IHTRODPCISQM 

We  are  developing  and  evaluating  optical  switches  for  optical 
computing  applications  which  must  meet  a  broad  range  of  design 
criteria.  Optical  switching  based  on  the  so-called  "nonlinear 
interface"  was  reported  years  ago^  however  finding  an  embodiment 
of  that  phenomenon  which  fulfills  design  criteria  for  actual 
devices  remains  unreportad.  We  describe  recent  work  on  t.he 
evaluation  of  nonlinear  interface  optical  switches (NICS)  based  on 
c.hin  films.  First  we  give  some  background  concerning  the 
phenomenology  of  these  switches  and  films  and  the  concept  of  a 
nonlinear  interface  switch  in  the  context  of  digital  optical 
computing.  We  then  describe  the  embodiment  we  are  striving  to 
fabricate  which  involves  a  slight  digression  into  materials 
chemistry.  Finally,  we  briefly  describe  crurrent  efforts  toward 
physical  evaluation  of  the  films  as  switches. 

BACKGROUND-HIOS 

Figure  1  gives  the  basic  idea  of  an  NICS.  Light  impir.gi.tg  on 
an  interface  between  two  media  having  different  indices  of 
refraction  is  partly  reflected  and  partly  transmitted  by  the 
i-nterface.  The  percentages  of  the  incident  which  are  reflected  and 
trar.st.itted  are  determined  by  the  difference  in  index  of  the 
refractions  present  at  the  interface.  If  one  of  the  media  is 
photorefractive,  i.e.  its  index  of  refraction  depends  on  the 
amount  of  light  which  is  present, it  then  becomes  possible 
optically,  to  equalize  the  indices  of  refraction  on  either  side  of 
the  interface  and  thereby  control  optical  switching  by  controlling 
the  amount  ox  light  reflected  at  the  interface.  A  switch  could  be 
composed  of  a  film  of  a  photorefractive  material  on  a  transparent 
substrate.  Standard  Fresnel  coefficients  adequately  model  the 
observed  optical  performance  of  such  fiJ-ms  provided  one  knows  the 
optical  prcperties  of  t.he  substrate,  film,  and  air. 
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Ssdifference  between  static  indices  of 
refaction  for  media  2  and  3. 

Aacoefflcient  of  opticai  nonlineanty 

Figure  1:  Inesraction  o£  light  with  standard  three  phase  optical  system  in 
which  the  middle  phase  is  photorefractive 

Of  the  many  design  criteria  which  must  be  met,  a  few  would 
seem  to  be  essential.  For  practical  purposes,  durability, 
minimization  of  power  dissipation  and  switching  energy  is  a  must. 
Spectral  characteristics  allowing  integration  of  NIOSs  with  SEEDS 
and  ocher  GaAs  based  devices^  would  be  advantageous.  The  optical 
properties  of  the  film  and  substrata  have  to  be  appropriate  to 
allow  et:ualization  of  their  indices  of  refraction  by  incident 
light.  The  initial  difference  in  the  index  of  refraction  between 
the  fil-T.  and  substrate  should  not  be  too  large.  The  original  proof 
or  principle  demonstrations  utilized  effects  where  the  net 
photcinduced  index  change  was  only  a^O.OE.  Such  a  device  will  .never 
be  a  bistable  device^  regardless  of  the  properties  of  available 
materials.  The  speed  of  the  switch  would  be  optimized  using  a 
nonresonanc  nonlinear  response.  Architectural  consideration  of 
this  type  of  switch  has  been  thoroughly  discussed  by  others^  with 
the  general  conclusion  being  that  the  NIOS  has  considerable 
potential  for  digital  optical  computing  applications.  Using  light 
from  one  source  to  control  the  amoimt  of  ligat  from  a  different 
source  being  reflected  at  the  interface,  it  is  possible  to 
construct  any  )cind  of  logical  function. 

Since  the  original  proposal  of  the  NIOS  by  Kaplan,  and  the 
later  proof  of  principle  work  by  Tomlinson  and  coworkers,  the 
underlying  phenomenon  of  the  NIOS  has  been  used  in  a  variety  of 
other  applications.  Aspr.es  and  colleagues^  have  used  a  phenomenon 
they  dubbed  "reflectance-difference"  spectroscopy  to  monitor 


monoJldyer  deposition  of  gallium  and  arsenic  in  MBE  applications. 
Henon  and  coworkers ^  have  used  a  technique  they  call  "Brewster 
Angle  Microscopy".  Yamamoto  and  others  have  used  reflection- 
absorption  spectrometry  for  similar  applications. 

In  all  cases,  it  is  clear  that  a  change  in  refractive  index 
at  an  interface  is  easily  detectable  even  for  monolayer  coverages 
of  some  materials  on  a  substrate.  It  is  also  clear  that  two 
particular  configurations  of  incident  light  and  substrate/switch 
have  definite  advantages  for  maximizing  the  amount  of  light  which 
can  be  switched.  If  the  "data"  light  is  incident  on  the 
film/ substrate  at  or  near  either:  1)  Brewster's  angle  or  2)  the 
critical  angle  for  total  internal  reflectance,  then  the  effect  of 
a  nonlinearity  in  the  refractive  index  of  the  film  on  the  amount 
of  light  reflected  is  maximized.  In  principle  this  configuration 
can  give  switched  light  with  zero  background. 

Producing  materials  in  chin  films  simultaneously  displayi-ng 
large  optical  nonlinearities,  variable  index  of  refraction  and 
high  damage  thresholds  .has  been  predicted  to  be  achievable  using 
ciusters/ultrafine  particle  based  materials,  Many"^/S>3  have  used 
analytic  formalism  and  numerical  simulations  to  show  that  clusters 
and  ultrafine  particles  of  metals,  metal  oxides  and  metal-iaetal 
oxide  composites  should  have  optical  nonlinearities  orders  of 
magnitude  larger  than  what  is  known  for  bulk  samples  of  the  same 
materials  not  having  such  microscopic  physical  morphology.  For  the 
remzLinder  of  this  paper,  we  demonstrate  that  we  have  produced 
fii.ms  of  metal  and  metal  oxide  clusters.  These  films  also  have 
-considerable  flexibility  in  the  bulk  indices  of  refraction  which 
they  display.  We  then  describe  our  earliest  efforts  at  evaluating 
these  films  as  optical  switches. 

LASER  CHEWI3TRY  OF  ORGAWOMSTALLICS 

A  diagram  of  the  basic  apparatus  used  to  perform  Laser 
Chemical  Vapor  Deposition  (LCVD)  has  been  presented  elsewhere-^. 
Details  concerning  the  cluster  size  distribution  and  underlying 
chemical  considerations  are  given  in  refereed  publications^^.  For 
present  purposes,  tungsten  hexacarbonyl  was  purified  by 
sublimation  before  being  loaded  into  a  specially  designed  ail 
stainless  steel  gas /reactant  delivery  syste-m.  We  have  used  a 
variety  of  precursors  and  the  conditions  stated  here  are  typical. 
This  system  utilizes  a  .molecular  sieve  drying  tube  to  remove  water 
fro.m  whatever  carrier  gas  is  used  to  entrain  t.he  organotungsten 
precursor.  A  set  cf  MKS  capacitance  manometers  and  isoiable 
chambers  of  known  volume  were  used  to  measure  partial  and  total 
pressures  and  flow  rates  in  the  delivery  system  and  in  the 
deposition  cell.  Although  this  apparatus  will  be  described  in 
greater  detail  later*2^  fQx  present  purposes  it  suffices  to  poi.nt 
out  that,  utilizing  a  series  of  micrometer  valves  and  lengths  of 
tubing  with  various  internal  diameters,  the  total  pressure,  flew 
rate,  gas  stream  compesitien  and  temperature  could  each  he 
independently  adjusted. 


log 


Figure  “Ja  shows  a  TSM  of  a  free  standing  tungscw.  film 
deposited  by  LCVD  directly  onto  a  TEM  grid  at  xll3,0Q0 
magnification;  globular  clusters  are  clearly  visible.  Figure  7b 
shows  an  electron  diffraction  pattern  obtained  from  the 
conglomeration  of  clusters  Lmaged  in  7a)  .  As  is  epical  ror 
diffraction  patterns  obtained  from  many  such  conglomerations,  tne 
near  coalescence  of  the  diffraction  rings  into  spots  presents  an 
interesting  comparison  with  the  results  of 

Observation  of  "implied"  tings  is  consistent  with  t..a  idea  that 

our  films  are  composed  by  condensation  of  clusters  of  . 

I^LsT  Figures  7c  and  7d  show  essentially  the  same  data  obta^ed 

for  tungsten  oxide  clusters.  These  clusters  were  depositee  using 

the  same  partial  pressure  of  tungsten  hexacarbonyl 

•^est  of  the  total  oressure  being  composed  using  02  >  "“6  single 

most  imoortant  aspect  of  all  the  materials 

the  buiic  indices  of  refraction  can  be  chosen  by  deposiuion 

conditions.  The  index  of  refraction  obtained  for 

ceoosited  tuncsten  and  tungsten  oxide  films  using  a  CW  HeNe  la  - 

range  from  nearly  1.0  to  2.2.  The  bulk  refractive  meex  for^ 

sputte’-ed  polycrystailine  tungstate  films  is  m  the  range  o*  2.3 

"ritl  In' all  cLes,  the  variation  in  index  of  rerraction  in 

Easily  rationalired-3  cn  the  basis  of  the  effective  f 
and  the  void  volume  of  the  films.  Since  deposition  of  the  filM  is 
entirely  diffusion  controlled,  deposition  conations  ^ete^^ne  t^ 
void  volume  which  in  turn  affects  the  bulh  of  re-raction . 

detailed  above,  this  situation  is  extremely  useful  tor  engineering 
film  for  NIOS  applications. 


sigure  2  TEM  and  electron  diffraction  characterization  of  tu.^gscen  (a,b)  and 
tungsten  oxide  (c,ci)  cluster  films 


Svaluacion  of  potential  switches  fabricated  using  films  of 
’■*'6  above  materials  is  currently  in  progress  and  so  only  the 
cenerai  ideas  will  be  prese.nted  here.  Two  configurations  are  used 
as  embodiments  of  switches.  The  light  can  impinge  on  t..e  fi-m  ana 
Chen  the  substrate  as  suggested  by  Figure  1.  In  all  cases,  the 
reflections  from  the  air~filrc  interface  cannot  be  separated  -rc^ 
Che  reflection  at  the  film-substrate  interface.  However,  oaretu. 


no 
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nearly  zero  background  measurements  can  be  made  when  the  angle  of 
incidence  is  adjusted  to  be  near  the  effective  Brewster  angle  for 
the  film*'air  system.  Alternatively,  it  is  possible  to  proceed  with 
an  exactly  reversed  situation.  In  this  case  the  light  enters  the 
switch  from  the  \jncoated  side  of  the  substrate  and  is  propagated 
uauil  it  encounters  the  film-substrate  interface.  The  angle  of 
incidence  of  the  light  with  the  substrate  is  varied  until  the 
critical  angle  for  total  internal  reflection  for  the  light  at  the 
film-substrate  interface  is  achieved,  in  this  case  the  percentage 
of  light  transmitted  across  the  substrate-film-air  interface  is 
measured  as  a  function  of  incident  power.  This  latter 
configuration  is  also  a  nearly  zero  background  measurement  and  in 
practice  is  less  sensitive  to  photorefractive  effects  at  the  film- 
air  interface. 

In  the  present  case,  as  suggested  by  Tigure  1,  at  a  given 
laser  intensity  the  switches  can  be  easily  modelled  using  Fresnel 
coefficients.  At  a  given  laser  intensity,  the  indices  of 
refraction  can  be  taken  to  be  simple  scalar  constants.  The  net 
reflectance  of  a  switch  is  then  only  a  function  of  the  angle  9i.nl, 
nj,  n3  and  the  thickness  of  the  film.  This  three  phase  system  has 

been  dealt  with  by  Fendler  and  coworkers^^  using  Fresnel 
coefficients,  with  the  following  useful  result.  If  the  film  is 
nonahsorbir.g,  and  interference  effects  can  be  neglected,  it  can  be 
shown  that  if  the  reflectance  of  the  ait-film-substrate  system  is 
measured  as  a  function  of  Gi,  and  the  reflectance  is  measured  for 
the  simpler  air-substrate  system  as  a  function  of  Qi,  then  two 
curves  are  obtained  which  cross  at  the  crossover  angle  a  such  t.'jat 

02  =  tan  a 

In  this  way  we  measured  na  for  a  range  of  incident  laser 
intensities.  If  the  film  is  photorefractive,  then  a  depends  on  I. 

The  reflected  power  was  measured  as  a  function  of  incident 
angle  for  514  nm  120  ps  duration  pulses  with  a  pulse  repetition 
frequency  of  82  MEz  from  a  mode-locked  argon  icn  laser.  Typical 
reflectance  versus  incident  angle  curves  for  both  the  two  phase 
and  three  phase  systems  at  two  different  laser  powers  are  shown  in 
figure  3.  This  was  done  for  10  different  levels  of  incident 
power,  from  a  minimum  average  power  of  1  mW  to  a  maximum  of  235 
mW,  all  with  a  beam  size  or  approximately  100  ^im. 

Figure  9  shows  the  calculated  02  for  each  laser  power.  This 
figure  clearly  shows  the  index  of  refraction  is  a  function  of 
laser  power  even  at  low  power.  In  the  middle  of  the  power  range 
used,  the  peak  cower  is  only  in  the  10-10^  W  range.  The  intensity 
is  only  about  2x10^  W/cm^, 
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Figure  3.  Reflectance  from  a  tungsten  oxide  cluster  film  as  a  function  of 
angle  of  incidence  and  incident  power. 
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Frgure  S.  Inde.'<  of  refraction  as  a  funetron  of  incident  power  from  film- 
substrate  crossover  angle  data. 

iJow  chat  a  nonlinear  effect  has  been  detected,  the  next  step 
is  to  determine  the  time  scale  of  the  nonlinearity  at  different 
wavelengths.  This  will  be  accomplished  by  using  a  "pump''  pulse  to 
initiate  the  .ncniinearity,  then  following  the  "pump"  pulse  with  a 
probe  pulse  to  investigate  the  changes  in  the  film  due  to  the 
"pump"  pulse.  We  plan  to  examine  the  nonlinear  response  using  our 
single  shot  to  JcHs  pulse  selection  capability.  To  examine  the 
source  and  order  of  the  nonlinearity  we  can  measure  in  greater 
precision  and  detail  the  power  dependence  of  na.  The  high  speed 
laser  facility  at  Rome  laboratory  has  a  system  capable  of  0.6  fs 
resolution  in  the  pxunp-probe  delay,  amd  a  femtosecond  pulse 
capability  of  <  100  fs  at  620  nm  and  from  700-900  nm.  It  also  has 
a  <  10  ps  capability  from  200-1100  nm. 


112 


These  measurements  will  be  the  starting  point  for  complete 
spectral spatial,  tes^oral  and  switching  energy  evaluation  of 
MIOS  devices.  Considering  that  we  are  only  in  the  earliest  stages 
of  materials  development,  the  admittedly  preliminary  results  are 
extremely  encouraging. 


Optical  switches  based  on  nonlinear  Interfaces  have 
considerable  promise  towards  meeting  the  myriad  of  design  criteria 
for  producing  devices  relevant  to  digital  optical  computing 
applications.  Hovel  materials  which  can  only  be  synthesized  using 
laser  chemistry  of  organometallics  have  a  niunber  of  unique 
advantages  for  the  design  and  fabrication  of  such  switches.  In 
agreement  with  theoretical  predictions  metal  oxide  cluster  films 
would  seem  to  be  highly  phototeiractive. 
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MISSION 

OP 

ROME  LABORATORY 

Rome  Laboratory  plans  and  executes  an  interdisciplinary  program  in  re¬ 
search,  development,  test,  and  technology  transition  in  support  of  Air 
Force  Command,  Control,  Communications  and  Intelligence  (Cl)  activities 
for  all  Air  Force  platforms.  It  also  executes  selected  acquisition  programs 
in  several  areas  of  expertise.  Technical  and  engineering  support  within 
areas  of  competence  is  provided  to  ESD  Program  Offices  (POs)  and  other 
ESD  elements  to  perform  effective  acquisition  o,  C  I  systems.  In  addition, 
Rome  Laboratory's  technology  supports  other  AFSC  Product  Divisions,  the 
Air  Force  user  community,  and  other  DOD  and  non-DOD  agencies.  Rome 
Laboratory  maintains  technical  competence  and  research  programs  in  areas 
including,  but  not  limited  to,  communications,  command  and  control,  battle 
management,  intelligence  information  processing,  computational  sciences 
and  software  producibility,  wide  area  surveillance/sensors,  signal  proces¬ 
sing,  solid  state  sciences,  jhotonics,  electromagnetic  technology,  super¬ 
conductivity,  and  electronic  reliability/maintainability  and  testability. 
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